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Add definition "ty kK ay lost’' MSCP end tlag 


Version: *v04-000' 
PARRARARASZALALAZALASALALLALASALALE RSE SEES ESE SESE SESE ERC EEE REECE EEE RCE EEE ERTS 
te * 
* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
* DIGITAL EQUIPMENT T CORPORATION, MAYNARD, MASSACHUSETTS. = 
: ALL RIGHTS RESERVED. we 
® 
* THIS ree i$ FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
* ONLY IN ACCORDANCE WITH THE rem OF SUCH biC ENSE ay WITH THE ® 
* INCLUSION OF 11 oy COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER ®* 
* COPIES THEREOF MA BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
* OTHER PERSON. NO. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* TRANSFERRED. * 
& * 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
» CORPORATION. * 
Ww 

c: DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

ts SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 

| BREE Aa RR = RN EE a patel RTE A ERE 

$** 

; FACILITY: VAX/VMS System Macro Libraries 

} ABSTRACT: 

{ This file contains the SDL soucre for all eprrees*y system control 

; blocks, from M to P. That is, all control blocks from MAA to P22. 

; ENVIRONMENT: 

{ n/a 

{ 

Loo 

{ 

at The VMS Group CREATION DATE: 1-Aug-1976 

¢ mop MODIFIED BY: 

{ v03-101 LJKO288 ence J. Kenah 9-Au uge -1984 

{ Add AUTHPRI eotk” to "PCB that duplicates existing PHD field. 

{ v03-100 ACG0440 Andrew C. Goldstein 23-Jul-1984 11:26 

Add ref count and classification valid flag to ORB 

v03-099 ROW0397 21-JUL-1984 


v03-098 ROW0374 Ralph 0. Weber 19=JUL-1984 
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end 
end 


pee 1 | 
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Add an qntryt to the MVMS RSE. inde offset from the MVMSL 
pee wh toe s the max =e HVMS ndex AT MVMSLSB -MAXIDX. 
Cpbn’se fol Ow ae MSCP co gatrot ier err auec codes 
nscP oseR. a Ay SC_OTSTR, and omseP x Sc SREARSRC. Add 
Symbol l “Bet nitions for the” three kind of hedow werkt operat on; 

mSCP S_NOCPY, a Ag CS_COPY, and MSCPSK_C a 

oo aan subcode for ASCP available, MSCPSK ‘sto CO NOMEMB “54 
definitions related to bad block papi ioonenn érror Logging. 


v03-097 RLRBINDT1 Robert t. Peppepert 12-Jul-1984 
Add more B! devices to SNDT 
v03-096 LMP0271 L. Mark Pilant -Jun-1984 13:03 
Add ORBS$V wees to indicate that the shiect can not 
have an ACL 
v03-095 wMc0095 take Cardoza 02-May-1984 
Add PHDSM_NO_WS_CHNG 
v03-094 NPK3051 Rronerbers 17-Apr-1984 
Add MSCPSK_EMD _EMUL to SMSCPDEF. 
VO3-093 GRR3093 regery R. Robert Vyher~1966 
Added SPSMDEF ts. ously part of SSMBDEF) 
V03-092 AfG0415 Andrew C. Goldstein, 11-Apr-1984 15:18 
Updete SNSAARGDEF for last set of audit changes 
v03-091 RLRPDTADP Robert L. goneppavert 10-Apr-1984 
Add PDT$L_ADP to common $ 


v03-090 SSA0024 Stan — 10-Apr-1984 
Add PIBSB_SRQ_ACCESS and PIBSW_SRQ_ACON to aodule SPIBDEF. 


v03-089 ROW0341 Ralph 0. Weber 9-APR-1984 
correct @ uated value for MSCPSK_C L_D144, an MSCP controller 
or unit identifier class. Add a NUMSCSH, SUPRESS, a fl Lag to 
indicate that a given mount verification message can be 


suppressed. 

v03-088 wHMO002 Bill Matthews 09-Apr-1984 
Added additional size constants in SPRMDEF to support 
long ascii sysgen parameters. 

v03-087 LMP0221 L. Mark Pilant 9-Apr-1984 12:16 
Add additional subfields to the ORB definition. 

V03-086 MHBO0132 Mark Bramhall 99-Apr-1984 
Add SPAWN_CLI and SPAWN_ oTABLE to SPQBDEF. 

v03-085 NPK3048 N. Erenenbers og Os 
Add protocol level and vc failure reason to SPBDEF. 

v03-084 KPLO001 Peter Lieberwirth 22-Mar-1984 


Add SNBIADEF. 


AAA AAAAAAAAAAAAAAAAAAAAAAAAARAARAAAAAAAAAAAAAAAAAAAAAAN 


F 
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v03-083 NPK3047 N. Kronenberg 22-Mar-1984 
Fhenge Ist Longword in PDT tFom foeeeves f?. rue 

A new port driver vector to SPDT 
POTS STOP VCS. 


v03-082 RLRPDTUCBO Robert L. Rappaport 21-Mar-1984 
Add PDT$L_UCBO field to common 


| 
eS 


v03-081 LMP0214 ark Pilan 21-Mar-1984 9:48 
Add ORBSL_ACL_MU ix" “the ACL ria to the ORB. 

v03-080 sapere Sta ay 13-Mar-1984 

PMBDEF, add AtmODE™ Tield to indicate owner access mode. 


v03-079 LMP0206 L. Mark Pilant, 9-Mar-1984 14:27 
ate 7 new structure, SORBDEF, to define an Object's Rights 
° 


| 

{ VO3-078 NPK3046 Kronenberg 7=Mar-1984 

— PDTSL POLL SWEEP to PDTDE This field contains 
{ ort driver estimate of the number of seconds it 
t Wi AY. a... to _Sraceeer all possible ports currently 

n the c 

; Add PBOSK VPENGTH to PBODEF. 
{ v03-077 pag fs Stan Amway 27-Feb-1984 
; n SPMBDEF, move overflow counter out of ACB_OVERLAY. 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
¢ 
: 


tee former location of overflow counter as address of 
piggy~back kernel AST routine. 


Add flag PMBSV_QAST to indicate imbedded ACB is queued. 


v03-076 ROWO315 Ralph 0. Weber 27-FEB-1984 
Add new controller pedels produced by revised MSCP 
specification to SMSCPDEF. 


v03-075 ROW0314 Ralph 0. Weber 27-F EB-1984 
Add SMVMSLDEF, nowt verification messages list, structure 
definition. 


v03-074 ROW0313 Ralph 0. Weber 27-FEB-1984 
Correct MSCPSK_ST_RDTRN, MSCPSK. ST_PLOST, MSCPSK_ST_PRESE, and 
SCP$SK_ST_LED definitions (they all had values one [ess than 
they should be). 


vO3-0735 MMD0243 neg Dumont, 24-Feb-1984 14:56 
Add support for MVLS$V_OPER adn MVLSB_STDVER 


v03-072 SSA0008 Sta cover 10-Feb-1984 
Changed timestamp a SPIBDEF to a quadword. 


v03-071 SSA0007 Sta yer 6-Feb-1984 
Modified SPFBDEF nd $PMB EF to track changes 
in page fault monitor buffer management routines. 


v03-070 RSHO096 R. Scott Hanna 02-F eb-1984 


AAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPA AAA AAPA AAA 
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v03-069 


v03-068 


v03-067 


v03-066 


v03-064 


v03-063 


v03-062 


v03-061 


v03-060 


v03-059 


v03-058 
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Add mandat ror K Eset” susaecrser® bit to eters status bits. 


Replace DEF AEVTDEF, and SNSAIDTDEF. 

wHM0001 Bill Matthews 01-Feb-1984 

Add a new parameter type for the LGI_ SYSGEN genes 
TMK0002 Todd M. Katz Lg 

Increase the number of reserved vectors in sorber from 3 to 10. 
ROWO0291 Ralph 0. Weber 29-JAN-1984 


Add MSCP unit nunber definitions for foreign disk ‘old 
controller su sreee - _This plus the 8 foreign disk device 
types (DTS_FD rough DT$_FD8) allow foreign disks to be 
served using the MSCP server. 


ACGO385 Andrew C. Goldstein , verre 16:21 
New network proxy tile format (SNAFDEF 
LJKO257 Lawrence J. kenah 5-Jan-1984 


Increase all text fields in PQB to 256 characters to 
accommodate longer logical names, file specifications, and 
so on. Move page file parameters and SWAPSIZE from PQB to 
PCB to allow PQB to be allocated from paged acnery. Add 
security clearance fields to PHD. 


ROWO271 Ralph 0. Weber 29-DEC- rial 

Add MSCP structure fetinitions for shadowed volume 

operations to SMSCPDEF. The unit flags bitfield definitions 
have been omitted from this update because their exact values 
are, as yet, unclear. 


$SA0004 Sta 28-Dec-1983 

Added S pepee’s for “ e + -* monitor enhancements. 

Added P PMB to P 

Replaced aalaa SPMBDEF with a substantially changed version. 
Added new module SPFBDEF. 


ROW0264 ate 0. Weber 27-DEC-1983 

Replace the unten SCPDEF nodule with a new, more readable 
version. Several previously undefined mask symbols are now 
defined. The new SMSCPDEF is believed to produce useable 
symbols for BLISS. 


TCm0001 Trudy C. Matthew 14-Dec-198 
Add new nexus device. type ot oe “NDTS MEMI664NI, to describe 
11/750 memory controller, which can hold a mixture of 
16k and 64k chip array cards. 
LMPO177 ark Pilant, 7-Dec-1983 9:51 
Add an ACL Listhbad” to the PCB. 
$SA000 Stan Amway 5-Dec-1983 
Added Support for outsuap scheduling changes. 
Removed $W_WAITIME from PHD. 


Added PCBSLWAITIME to. PCB. 


SYS| 


: 
| 
{ 
| 
| 
| 
( 
| 
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v03-057 wMc0057 Wayne Cardoza 05-Dec-1983 
Change PHDSW_BAK, WSLX,PSTBASMAX to Longwords. 


v03-056 JWwT0145 Jim Teague 18-Nov-1983 
Define masks for SPCBDEF bitfields. 


V0O3-055 ROW0249 Ralph 0. Weber 10-NOV-1983 
Add MSCPSB_CNT ALCS. the MSCP. Set Controller Characteristics 
end message field in which the allocation class will be 


returned. 
v03-054 LMP0167 L. Mark Pilant 10-Nov-1983 15:22 
Modify SNMBDEF to add support for full ODS-1 wildcarding. 
v03-053 RLRBINDT Robert L. Rappaport 9-Nov-1983 
aad Bl devices to SNDTDEF. 
v03-052 TMKO0001 Todd M. Katz 26-0 t-1983 
Add PQBSi_JTQUOTA to SPOBDEF. 
v03-051 SSA00002 30-Sep-1983 


Module SPIBDEF - = added” "309" egate PIBDEFS to support 
new routine PMSSAB OPERFORM. Added aborted 
4 Sorepuest as new "grisseatias type in eoorecate 


v03-050 KTA3084 Kerbey T. Altmann 27-Sep-1983 
Differentiate between RP/RM on MASSBUS disks in 
the MSCP unit number. 


v03-049 SSA0001 Sta 13-Sep-1983 
Module SPIBDEF, tenth «. ”PIBDEF2 - Made transfer 
byte count a Longword and relocated to end of 
structure. Added FILL_9 to redefine word formerly 
used as transfer byte count. 


VO3-048 wMC0047 ne Cardoza 31-Aug-1983 
Add a flag to MncDeF 
v03-047 og §: Gerry Smith 24-Aug-1983 


For NSAEVTDEF, renove terminal and mailbox 1/0, and 
add interactive and remote login/logout. 


V03-046 wWMC0046 Wayne Cardoza 28-Jul-1983 
Add PQB fields for logical name characteristics. 


V03-045 RSHO048 R. Scott Hanna 28-Jul-1983 
Replace SNSAARGDEF 


v03-044 RLRTMSCP Robert L. Rappaport 28-Jul-1983 
Add MSCPSK_ST_LED (LEOT detected statu 
MSCPSK_SC_BLATE( Data Late subcode) MSCPSx_M 
(request Immediate completion nodi fier) and “ASPSse EAD _DLEOT 
(request LEOT detection modifier). 


V03-043 NPK3029 N. Kronenberg 26-Jul-1983 


SYS! 


2 2 
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Rearrange PB slightly. Add new send dg w/register 
entry te PDT and’3 new reserved longuorés at vend 


of SCS entry List. 

v03-042 R 00s Rod N, Gamache 22-Jul-1983 
Add MS780-H nexus device types to SNDTDEF. 

v03-041 RLRMSLG Robert L. Rappaport 22-Jul-1983 
Add MSLG (MSCP Error Log) definitions 
Also add "Host Buffer Access Error’ sub-codes to MSCPDEF. 

V03-040 MSHO002 Maryann Hinden 23-Jun-1983 
Add SPRCPOLDEF. 

v03-039 RSHO037 R. Scott Hanna om un-1983 
Permanent fix to SNSAARGDEF symbols. Add ARG_COUNT 
to SNSAARGDEF . "Rad EVT " UPGRAD and EVT “SOUNGRADE to 
SNSAEVTDEF. 

v03-038 SRB0093 Steve Beckhardt 6-Jun-1983 
Added PCBSM _RECOVER to SPCBDEF 

v03-037 ADE9001 A. ELDRIDGE 27-May-1983 

V03-036 RSHO024 scott Hanna 24-May-1983 
had SNSAIDTDEF a SNSAARGDEF 


v03-035 RLRPCHAR Rober Rappaport 19-May-1983 
ace Tyree a field’ and add PDTSM_SNGLHOST bit 
n s word. 


v03-034 KTA3051 Kerbey T. Altmann 18-May-1983 
Add more PDT types. 


v03-033 LMP0112 a Pilan 10-May-1983 9:24 
Add a new cell, beast TDEFPROT. to contain the process 
default protection. 


v03-032 RSHO016 Scott Hanna 30-Apr-1983 
Replace SNSAEVTDEE 


v03-031 MSHO001 Maryann Hinden 25-Mar-1983 
Add ASCII type flag to SPRMDEF 


v03-030 mnD0110 
Fix the def for mvesKiey. "FEXLEN 


v03-029 exeree Moyne Cardoza 15-Mar-1983 
id IMGDMP flag to PHD 
agg flags word to ° OB. 


v03-028 RSHO011 R. Scott Hanna 13-Mar-1983 
Add SNSAEVTDEF 


vO3-027 M™MD0107 Meg Dumont, 10-Mar-1983 15:54 


24-Mar-1983 17:53 


AAA AAAAAAAAAAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 


Temporary fix to SNSAARGDEF to allow system to build. 


AAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPAAAAAAPAAAAAAASAAAAAN 
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v03-026 
v03-025 
v03-024 
v03-023 
v03-022 
v03-021 
v03-020 
v03-019 
v03-018 
v03-017 
v03-016 


vO3-015 wm 


v03-014 


v03-013 
v03-012 


vO3-011 NPK 


v03-010 
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Add field MVLST_VOLOWNER to contain VOL1 owner id field 


RLRUNIT L. Rappaport 8-Mar-1983 

Add vubtields to ets “UNIT for HSC emulator. 

wMc0025 Wayne Cardoza 07-Mar-1983 

Add PCBSV_INTER 

RLRODB . i. aiRPspor® 11-Mar-1983 

Add subfields to RAS ePSL MEDI 

DWT0079 David W. Thiel 11-Mar-1983 

Add PRM$V_CLUSTER to detine cluster SYSGEN pareneters. 
RLRMXBCNT Robert L. Rappaport 25-Feb-1983 

Add PDTS$L_MAXBCNT. 

CwH1002 Hobbs 24-Feb-1983 
Rename PCBSL pip. CEXTERNAL to PCBSL_EPID, and add PCBSL_EOWNER. 
KBT0499 Keith 6B. Mente 1geFeb -1983 
Increase the Py of PQBSC_MAXDIRLEN to 178 (match FWASC_MAXDIRLEN) 
CWHOO001 CW Hobbs 19-Feb-1983 

Add PCBSL_PID_EXTERNAL for pid changes. 

RLRRDRX Robert L RapPe port 99-Feb-1983 

Add MSCPSK_CM_RDRX, nS CESK _OP_RWATN and MSCPSM _MD_EXCLU. 
wMC0016 oye e Cardoza 26-Jan-1983 
Make PTESV_STX a signed bitfield. 
ACG0307 Andrew C. Goldstein 10-Jan-1983 16:25 
Add system protection block (S$PRBDEF) 

wMC0015 Wayne Cardoza 10-Jan-1982 


Put PRMDEF back. 
It was accidentally deleted in v03-013. 


wMC0014 Wayne Cardoza 8-Jan-1983 
Temporarily delete PRODEF to make buiid run. 
There is a conflict with the object Language. 


ACG9307 Andrew C. Goldstein, 30-Dec-1982 17:08 
Add enhanced protection structures to PCB 
ACGO0303 Andrew C. Goldstein, 9-Dec-1982 15:13 


Add FILL attribute to extraneous names 


NPK3010 N. Kronenberg 12-Nov-1982 
nee SPBODEF to define offsets to output from SCSSCONFIG_ PTH 


hdd c1 port type codes symbols to SPBDEF. 


CDS0001 C Saether 22-0c t-1982 
Add PCBS$B_DPC delete pending counter. 


i 
— | 


f 
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V03-009 RLRPRESE Robert L. Rappaport 1506 t=1982 

Add MSCPSK_ST_PRESE (previous y existing serious exception). 
v03-008 waC0002 Wayne Cardoza 28-Sep-1982 

Expand PQB to add page file selection. 

v03-007 wMC0001 Wayne Cardoza 28-Jul-1982 
Add ‘‘useable by checkpoint’ bit to page file control block. 

v03-006 RLROOO2 Robert L. Rappaport 13-July-1982 
Correct some Tape MSCP errors. 

v03-005 RLROOO1 Robert L. Rappaport 17-June-1982 


Add Tape MSCP definitions to MSCPDEF. 
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module SMBADEF ; 


{+ 
. MASSBUS ADAPTER REGISTER OFFSET DEFINITIONS 


a0gr ren ove MBADEF structure prefix MBAS; 
VERLAY union fill; 

ongword unsigned: | 

CSR 81! srructure 

R_ADCOD b field ‘iength 8 


a) 


Fa 
fitt ed; MBADEF tag $$; 
ld mask; 


b— $ i i 
oe za seo 
ae ae gee a= 


o w" 
aoe corocoorco 


j 
i 
i 
i 
i 
T 
i 
i 
b 
i 
i 


tah eA eee 
me al IN ats he he ae ats hs ate 


t 
t 
t 
t 
t 
t 
i 
t 
t 


WF cctolitinestaanecmene 
50 50 5 Or Br BS or So 


end 4, 
oe CSR_OVERL 
CR_OVERCAY oe | fill; 

at Longword unsigned; 

CR_BITS structure fill; 

CR_INIT bitfield mask; 
CR-ABORT bitfield mask; 
a. IE bitfield mask; 


end CR-BIT De 
oy CR_OVERLAY; 
RLOVERLAY union fill; 
SR ord uns igned 


wTe" 
SR Bi asic ture ill: 


SR_RDTO bitfield = By 
SR_ISTO bitfield mask; 
SR_RDS bitfield mask; 
SR_ERCONF bitfield mask; 
SR_INVMAP bitfield mask; 
SR_MAPPE bitfield mask; 
SR_MDPE bitfield mask; 
SRIMBEXC bitfield mask; 
SR_MXF bitfield mask; 
SR_WCKLWR bitfield mask; 
-WCKUPR bitfield mask; 
SR_OLT bitfield mask; 
SR_DTABT bitfield mask 
SR-DTCOMP bitfield snask; 
SR_SPE bitfield ma 
FICL_4 bitfield nit prefix MBADEF tag $$; 
SR_ATIN bittield mask; 
SR_MCPE bitfield mask; 
SR_NED bitfield mask; 


/*CONFIGURATION STATUS REGISTER 
/* ADAPTER CODE FIELD 


tfield Len th 13 fic l prefix MBADEF tag $$;/* RESERVED BITS 
/* OVER TEMPERATURE 


/ 

tag $$;/* RESERVED a 
/* TRANSMITTER FAUL 

/* areas TRANSMITTERS 


/* RESERVED BIT 

/* UNEXPECTED READ er 
/* WRITE street . 

/* SBI PARITY ERR 


/*CONTROL REGISTER 
/* ADAPTER Hate 


/* ABORT OPERA 
/* INTERRUPT ENABLE 


/*STATUS REGISTER 


/* READ DATA TIMEOUT 
/* NH ede SEQUENCE TIMEOUT 
SUBSTITUTE 


/* MAP PARITY ER 

/* MASSBUS DATA PARITY ERROR 

/* MASSBUS EXCEPTION 

/* MISSED TRANSFER ERR OR 

/* WRITE CHECK ERROR LOWER BYTE 
/* WRITE CHECK ERROR UPPER BYTE 
/* DATA LATE ERROR 

/* DATA TRANSFER ABORTED 

/* DATA TRANSFER COMPLETE 

/* SILO PARITY ERROR 

/* RESERVED BITS 

/* MASSBUS ATTENTION 

/* MASSBUS COMTROL PARITY ERROR 
/* NONEXISTENT DRIVE 


fe 
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ERB ONIT bitfield length 3; /* DRIVE UNIT NUMBER 
end ERB aris: 
end ERB_OVERLA 


FILL_9 Byte dimens ion 12 fill prefix MBADEF tag $$; /* DRIVE REGISTER ADDRESS SPACE 
AS et unsigned; /tATTENTION SUMMARY REGISTER 
FILL_10 byte dimension 1004 fill prefix MBADEF tag $$;/* VALUE IS 2048- 
/* TO POSITION TO 2048 
MAP Longword unsigned dimension 256; /*MAP REGISTERS 
end MBADEF ; 


end_module SMBADEF ; 


SR PGE bitfield mask; /* PROGRAM ERROR | 
FICL piteiel¢ rengch 3 fill prefix MBADEF tag th RESERVED BITS 
SR CBHUNG bitfiel /* CB HUN 
FICL_6 bitfield le ength § fill prefix MBADEF tag $$;/* pesenyee errs 
SR_CRD bitfield ma /* COR RRECTED READ DAT 
SR_NRCONF bitfield mask; /* NO RESPONSE CONT TRMATION 
SR_DTBUSY bitfield mask; /* DATA TRANSFER BUSY 
end SR_BITS; 
/* ERROR BITS 
constant g's apeune 
( MBA 
meASA Reh ISTO! 
MRASM_SR_RDS! 
MBASM_SR_ “ERCONF ! 
MBASM_SR_INVMAP! 
SM—SR-MAPPE ! 
MBASM_SR_MDPE! 
MBASM_SR_MBEXC! 
MBASM_SR_MXF ! 
MBASM_ SR “WCKLWR! 
MBASM_SR_WCKUPR! 
MBASM_SR_DLT! 
MBASM_SR_SPE! 
MBASM_SR_DTABT! 
MBASM_SR_MCPE! 
MBASM_SR_NED! 
MBASM_SR_PGE ) 
refix MBA tag SM; /* PROGRAM ERROR 
end SR_OVERLAY; 
VAR Longword unsigned: /*VIRTUAL noone iT REGISTER 
BCR longword unsigned; /*BYTE COUNT REGISTER 
DR Longword unsigned; /*DIAGNOSTIC REGISTER 
jie ye unsigned /*SELECTED MAP REGISTER 
FILL oveRAY te dimension 3 “956 fill prefix MBADEF tag $$;/* VALUE IS 1024-<4#7> 
longword unsigned; /*BASE ADDRESS OF EXTERNAL REGISTERS 
ERB BIT tructure fill; 
FILL_8 bitfield Length 7 fill prefix MBADEF tag $$;/* REGISTER OFFSET ADDRESS BITS 


N 
SYSDEFMP.SDL;1 16-SEP-1984 16:45:34 .59 Page 11 


module SMBXDEF ; 
P SHARED MEMORY MAILBOX CONTROL BLOCK DEFINITIONS 


/* THERE IS ONE ad Vg CONTROL BLOCK FOR EACH MAILBOX IN SHARED 
/* MEMORY, ANY PROCESSOR THAT WANTS TO ACCESS THE MAILBOX CREATES 
o. A UCB TO CONTROL ACCESS TO THE MAILBOX. 


~~ 


aggregate MBXDEF structure prefix MBX$; 
mec 
uadword unsigned; 


/*MESSAGE QUEUE LISTHEAD 
FLAG x OVERLAY union fill; 


FLAGS byte unsigned; /*FLAGS 
FLAGS BITS structure fill; 
ACLOC bitfield mask; /* MAILBOX ALLOCATE 
VALID bitfield mask /* Rath Poe NTT TALI ZED AND USEABLE 
DELPEND bitfield mask; /* DELETE PENDING 
QUOTALCK bitfield mask; /* QUOTA/COUNT MODIFICATION LOCK 


end FLAGS BITS; 
ong f FLAGS_OVERLAY; 


REATPORT “byte uns igned; /*PORT NUMBER OF MAILBOX CREATOR 
UNIT word uns i /*MAILBOX UNIT NUMBER 
“REF*’ word uns anon /*REFERENCE FLAGS (1 BIT/PORT) 
READER word uns gned; /*WAITING READER (1 BIT/PORT) 
READAST word unsigned; /*WAITING READ AST (1 BIT/PORT) 
WRITAST word unsigned; /*WAITING WRITE AST (1 BIT/PORT) 
MAXMSG word unsigned; /*MAXIMUM MESSAGE SIZE 
MSGCNT word une Seneds /*CURRENT NUMBER OF MESSAGES 
BUFFQUO word uns et /*BUFFER QUOTA 
PROT word unsigne /*PROTECTION MASK 
OWNUIC Longwor uns ned; ae ny NER 


NAME ghorester | omar 16 /*M pli eos NARE (COUNTED STRING) 
/* wee THE LENGTH OF THIS SThucTURE MUST BE AN EVEN MULTIPLE OF 8 * 
/* see BECAUSE THE MESSAGE QUEUE HEADER MUST BE en ALIGNED eee 


constant “‘LENGTH’’ equals . prefix MBX$ tag K /*LENGTH OF STRUCTURE 
constant "LENGTH" equals . prefix MBX$ tag C: /*LENGTH OF STRUCTURE 
end MBXDEF; 


end_module SMBXDEF ; 
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ieee SMCHKDEF ; 
MACHINE cna ck ERROR RECOV very BLOCK MASK mi DEFFINITIONS 
YPES 


(e BITS USED TO FILTER AND TEST FOR ERROR T 
aggregate ati union prefix MCHKS$; 
CHK wt BITS structure fill; 
bitfield mask; /*INHIBIT ERROR LOGGIN FOR THE ERROR 
Lee bitfield mask /*PROTECT AGAINST MACHINE CHECKS 
NEXM bitfield mask; /*PROTECT AGAINST NON-EXISTENT MEMORY 
UBA bitfield mask; /*PROTECT AGAINST UBA ADAPTER ERROR INTRPT 
end MCHKDEF_BITS; 
end MCHKDEF ; 


end_module SMCHKDEF ; 


SYSD 
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e 
Define the frame pointer offsets that determine what the impure area 
used by the memory management system services looks Like. 


module SMMGDEF; 


/* =f -B,0 /* ending address of negated structure 
* (needed to obtain length definition) 


aggregate MMGDEF structure prefix MMGS origin FILL2; 


i 
constant ‘LENGTH equals . prefix MMG$ tag /* size of scratch area 


constant "LENGTH" equals . prefix MMG$ tag C; /* size of scratch area 
EFBLK | ord unsigned; /* stored end-of-file block from WCB 
VFYFLAGS Longword unsigned; /* verified section flags and maximum 
/* access aoey for writing 
SVSTARTVA Longword unsigned; /* saved starting virtual address 
PAGESUBR Longword unsigned; /* address of per page subroutine 
SAVRETADR lLongword unsigned; /* saved return address range 
CALLEDIPL Longword unsigned; /* caller's IPL 
MAXACMODE OVERLAY union fill; 
P MAXACMODE Longword unsigned; /* maximized read access mode 
e 
MAXACMODE BITS structure fill; 
FILL_T bitfield Length 8 fill prefix MMGDEF tug $$;/* no flags in first ogte 
CHGPAGFIL bitfield mask; #* charge page file for this PTE 
DELGBLDON bitfield mask; /* global pages in this range 
/* already celeted 
NOWAIT_IPLO bitfield mask; /* abort instead of dropping to 0 
P end MAXACMODE BITS; 
* 


end MAXACMODE_OVERLAY; 
FILL_2 byte fTLl prefix MMGDEF tag $$; 
end MMGDEF; 


end_module SMMGDEF ; 


SYSC 


SYSDEFMP.SDL;1 


module SMILDEF; 
be ROU 


. _SYSTER WIDE MOUNTED VOLUME LI 


*sornitre t MTLDEF duns |gned: prefix MTL$; 


hs tongworg unsigned; 
pore — Toned: 


PE byt 
Syatus” OVERLAY tin fill; 
STATUS byte unsigned; 
STATUS_B ts strut ture fill; 
vers T bitfield; 
end STATUS BITS; 
end STATUS *OVERLAY: 
UCB longword unsigned; 


LOGNAME Longword unsign 

FILL.1 Longword #iUt tie MTILDEF tag $$; 

constant ‘LENGTH’ equals . prefix MILS tag K; 
oat constant “LENGTH” equals . prefix MTL$ tag C; 


end_module SMTLDEF; 


/* yoy Use Aa} ENTRY. ONE SUCH og RY APPEAR 
ie VOLUME ACH Reg MOUNTED BY i. PROCE 
/* IN ADDI a EACH VOL /SYSTEM OR /GR 


IN TH 
AS / 
HAS AN ENTRY iN 


eter bho ae 
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MOUNTE 
ARE OR / eee 


= 
2 
Cc 
o 
S 
mn 
wn 


STATUS BYTE 
ENTRY IS FOR A VOLUME SET 
af bell TO DEVIC 
0 ASSOC 
ONGWORD 
TRUCT 
TRUCTUR 


E ucB 
IATED LOGICAL NAME 
URE 
URE 


VI 
so 
uc 
LENGTH OF STRUC 


SYSC 
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gears SMTXDEF ; 
a MUTEX DEFINITIONS 


aggregate, MTXDEF robe refix MTX$; 
venexere * prefix, MTKDEF tag $$; 
FILL 1 B1TS od ill; 
FIcL 6it bist Pi Length 16 fill prefix MTXDEF tf 
wR alti PENDING OR IN PROGRESS 


end FIL 
etek it LeleBiTs: structure fill; 
GWACNT word unsi gee : /*OWNERSHIP COUNT 


STS word unsigne /*STATUS BITS 


end FILL_1_FIELDS; 
end MIXDEF ; 


end_module SMTXDEF; 


F 
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nodule SMPMDEF ; 
is "MULTIPORT MEMORY (MA780/MA750) ADAPTER REGISTER OFFSET DEFINITIONS 


te 
/* The UETP for the MA780 depends on some of the following definitions. Please 
. Let someone in that group know if the definitions change substantially. 


constant PORTS equals 4 prefix MPM tag $C; 


waar POR SVERLAY. syructure. prefix MPM$; 
union ; 
“CSR Longword unsigned; /*CONFIGURATION STATUS REGISTER 


/*MAXIMUM NUMBER OF PORTS PER MEMORY 


CSR_BITSO structure fill; 

“CSR_PORT bitfield mask Length 2; /* PORT NUMBER 

end CSR cBIts0: 
CSR_BITS1 structure fill; 

“CSR_ADCOD bitfield mask jengr® 8; /* ADAPTER CODE FIELD 

FILC_1 bitfield Len = 14 fill prefix MPMDEF. A 5. oi f. oe oee VED BITS 

CSR_Pu bitfield mask OWER UP 

CSR_PD bitfield a ie ADAPTER POUER DOWN 

FILC_2 bitfield te engi, . fill prefix MPMDEF tag $$;/* RESERVED BITS 

CSR_RMFLT bitfield m /* TRANSMITTER FAULT 

CSR_MT bitfield mask; /* MULTIPLE TRANSMITTERS 

CSR Ig bitfield /* INTERLOCK 7° UENCE 

FILC_3 bitfield Ret’ ‘ prefix MPMDEF tag $$; /* RESERVED BIT 

CSR_OS bitfield mask; /* WRITE SEQUENCE DATA 

CSR_PE bitfield mask; /* SBI PARITY ERROR 

te CSR_BITS1; 
onstant CSR_TYPE equals 64 prefix MPM tag $C;/* MULTIPORT ADAPTER TYPE CODE 
end CSR OVERLAY; 
CR_OVERCAY union fill; 
CR longword unsigned; /*CONTROL REGISTER 
CR_BITS structure fill; 

CR_MIE bitfield mask; /* MASTER INTERRUPT ENABLE 
bitfield m * ERROR INTERRUPT ENABLE 
bitfield rn R 22 fill prefix MPMDEF tag $$;/* 

bitfield mask length 8; /* PORT INTERFACE ERRORS 


n /*STATUS REGISTER 
ure 
tfield s Fite prefix MPMDEF tag $$; is (UNUSED) 


Bittictd w ask; * ERROR INTERRUPT ENABLE 
oie tieté length 11 fill prefix MPMDEF. /e*tine set f° 
tfield mas INGLE STEP 
bitfield a mask: is INVAL IDATE PATA LOST IN MPC 
tfield mask; * INTERLOCK TIMECUT 
bitfield Lengen 12 fill prefix MPMDEF. tag $$;/* 
bitfield mas /* KOMI GRANT PARITY ERROR 
bitfield mask: /* XMIT DURING FAULT 
bitfield mask; /* MULTIPLE XMITTER FAULT 
bitfield mask; /* ADMI COMMAND ABORT 


ee eee 


SYSC 


SYSDEFMP.SDL;1 16-SEP-1984 16:45:39.57 Page 17 
end Sk eet 1s; 
Tue BvERAY union fill; 
gned; /*INVALIDATION CONTROL REGISTER 
INV_BIT structure fill; 
INV_ID bitfie q mask Len o 16; /* CACHED DEVICE NEXUS ID'S 
INV PERSE bit eld, mask /* MEMORY SIZE (256KB BOARDS) 
FILC d Ll pre 7 Sneber tag $$; /* (UNUSED) 
INV_ STADR bitfield mask Length /* STARTING SBI ADDR OF MEMORY 
INV CACHE Bittieta mask; /* CACHED FORCE (IGNORE ID'S) 
end INVBIT 1s; 
end INV_OVERLA 
em er union ¢ olan d; /*ARRAY ERROR REGISTER 
® 
ERR_BITS tructure we ¢ ilt; 
FILL itf eld. length 28 fill prefix MPMDEF Ay FB. 
ERRELR’ bit tfield m anok’ LOG REQUEST 
ERR_HI b tfield a is HIGH ERR 2 
ERR-ICRD bitfield mask; /* INHIBIT CRD ERRORS 
— ERR-IMP bitfield mask; /* INVALIDATE MAP PARITY ERROR 
end ERR_OVERLAY 
CSRO OVERLAY aes fill; 
ts rd unsigned; /*CONFIGURATION STATUS REGISTER 0 
CSRO_BITS structure fill; 
FILL_10 bitfield Length 4 fill prefix MPMDEF As 
% bitfield Length 4; ER *ibRT POWER STATUS 
CSRO-ERR bitfield length 4; ie PER PORT ERROR STATU 
CSRO-ONL bitfield length 4; /* PER PORT ONLINE STATUS 
end CSRO™ BITS; 
end CSRO_OVERLA 
CSR1 eat ~ i fill; 
tsri rd unsigned; /*CONFIGURATION STATUS REGISTER 1 
CSR1_ 8B rrtere fill; 
fit bitfield length 10 fill prefix MPMDEF te 
itfield mask; /* Litéle INTERLOCK ACCEPTED 


CSRI “RIA b 
CSR1-BITS; 
end tsR1_0 VERLAY; 
MR “OVERLAY. union fill; 
MR Longword unsigned; /*MAINTENANCE REGISTER 


MR BIT Structure till; 
FILL 12 bitfield tength 14 fill prefix MPMDEF tag $$;/* (ERROR BITS) 


MR_UNIT bitfield Length 2; /* MEMORY UNIT NUMBER 
end MR-BITS; 
end MR_OVERLAY: 
IIR_OVERLAY union fill; 
IIR longword unsigned; /*INTERPORT INTERRUPT REQUEST REGISTER 
1IR_BIT structure fill; 
IIR_STS bitfield length 16; /* STATUS BITS (WRITE TO CLEAR) 
IIRTCTL bitfield Length 16; /* CONTROL BITS (WRITE TO SET STATUS BITS) 
end IIR“BITS; 
end IIR_OVERLAY; 
IIE_OVERLAY union fill; 
IIE sonquere unsigned; /tINTERPORT INTERRUPT ENABLE REGISTER 
IIE_BITS structure f Lt; 
“IIE_STS bitfield length 16; /* CONTROL BITS (WRITE TO CLEAR) 
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faa lle-sitss Length 16; 


end IIE_OVERLAY; 
end mPoer Se 


end_module SMPMDEF ; 


4 
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/* STATUS BITS (WRITE TO SET STATUS BITS) 


SYSC 
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module SMSLGDEF ; 


js 

/* MSLG, MScp arcer LoG message definitions 

/* Thes finitions describe the format of the error log messages 
generated by MSCP and TMSCP devices. 


ese de 


2 
/*= 


/* Generic MSCP/TMSCP error log entry format 


Longword unsigned; 
word unsigned; 
SEQ_NUM word unsigned; 
FORMAT byte unsigned; 
FLAGS structure byte unsigned: 
if SQNRS bitfield mas 


regate GENERIC_MSCP_ERRLOG structure 


filler bitfield Length 3 fill; 
LF_RPLER bitfield mask; 
BBR bitfield mask; 
F-CONT bitfield mask; 
LF_SUCC bitfield mask; 
end FLAGS; 
EVENT word unsigned; 
constant ( 
ERR 


se © te &© & &© @& 
— 

— >2zZo z 
Sl ee = 
rve 
— 
zDD 
z 


equals 0 increment 1; 
CNT_ID quadword ne tqneds 
CNT_SVR byte unsigned; 
CNT_HVR byte unsigned; 
#cnt_err_base = .; 

“UNT"word unsigned; 
#buv_addr_base = .; 
UNIT_ID quadword yns igned; 
UNIT_SVR byte unsigned; 
UNIT_HVR byte unsigned; 

format_dependent = .; 


Y 

VOL 

GAP_CNT sgravore unsigned; 
end VOLSER_GAPCHT; 

eric_disk_base = .; 


prefix MSLGS$; 
y 
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Command reference number 


* Unit number 


Sequence Number 

Format 

Error Log Message Flags 
Sequence Number Reset 


Error during replacement 

Bad block replacement request 
Operation cane tau ine 
Operation successfu 


Event Code 


Controller error 

Host memory access error 

Disk transfer error (disks) 

SDI error (disks) 

Small disk error (disks) 

Tape transfer error (tapes) 

STIl communication or command error (tapes) 
STI driver error log (tapes) 

STI formatter error log (tapes) 

Bad block replacement attempt (disks) 


Controller ID 
Controller software version 
Controller hardware version 


Multi-unit Code 

Unit ID 

Unit software version 
Unit hardware version 


Level 
Retry 


Volume Serial Number (disks) 
Position - object count (tapes) 
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FMTR_SVR byte unsigned; /* Formatter software version 
rece? KVR eyte ities /* Formatter hardware version 
reserv ; 


end GENER ICS “asch’eRncoG: te 


/ 
Controller Error (MSLGSK_CNT_ERR) 


aggregate MSLG_CNT_ERR structure prefix MSLG$; 


filler byte dimension #cnt_err_base fill; 
CNT_ERR byte tag 7; /* Controller dependent data 


end MSLG_CNT_ERR; 


/t 


. Host Memory Access Error (MSLGSK_BUS_ADDR) 


aggregate MSLG_BUS_ADDR structure prefix MSLG$; 


filler byte dimension #bus_addr_base fill; 
BUS_ADDR Longword unsigned; /* Bus Address 


end MSLG_BUS_ADDR; 
/t 
S Disk Transfer Error (MSLGSK_DISK_TRN) 
J 
aggregate MSLG_DISK_TRN structure prefix MSLGS$; 
seater byte dimension #generic_disk_base mths 


CODE Longword unsigned; * Header Code 
DISR_TRN byte tag 2; /* Controller or disk dependent data 


end MSLG_DISK_TRN; 


/ 
. SDI Error (MSLGS$K_SDI) 


aggregaie MSLG_SDI structure prefix MSLG$; 
filler byte dimension #generic_ disk_base ale oy 
hdr_code longword Header Code (defined above) 
SDI“ byte unsigned dimension 12; /* SDI Information 


end MSLG_SDI; 


/ 
a Small Disk Error (MSLGS$K_SML_DSK) 
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aggregate MSLG_SML_DSK structure prefix MSLGS$; 


/* Tape Transfer Error (MSLGSK_STI_ERR) 


aggregate MSLG_STI_ERR structure pretix MSLG$; 


STI byte unsigned dimension 20; 
end MSLG_STI_ERR; 


aggregate MSLG_REPLACE structure prefix MSLGS$; 


filler_1 byte dimension #format_dependent fi 
RPL_FLGS structure word unsigned; 

bit_fill bitfield length 10 fill; 

LFR_BR bitfield mask; 

LFR_RI bitfield mask; 

LFR_RF bitfield mask; 

LFR_TE bitfield mask; 

LFRTFE bitfield mask: 

LFR_RP bitfield mask; 
end RPL_FLGS; 
filler 2 byte dimension #generic_disk_base-. 
BAD_LBR Longword unsigned; 
OLD_RBN Longword unsigned; 


NEW _RBN longword unsigned; 
CAUSE word unsigned; 


end MSLG_REPLACE; 
end_module SMSLGDEF ; 


© 
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Ll; 
/* ry; neer 

fill; 

* Controller or device dependent 


/* There are no special field definitions for tape transfer errors at this time. 


/* STI communication or command failure (MSLGSK_STI_ERR) 
/* STl drive error log (MSLGS$K_S11_DEL) 
/* STI formatter error log (MSCGSK_STI_FEL) 


filler byte dimension #generic_tape_base fill; 


/* STI Information 


/ 
- Bad Block Replacement Attempted (MSLGSK_REPLACE) 
J 


Ll; 
/* Replace Flags 


Bad RBN 
/* RCT inconsistent 
/* Reformat error 
/* Tertiary revector 
/* Forced error (data not recovered) 
/* Replace attempted (block really bad) 


/* Event code causing replacement 
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module SMSCPDEF ; 

/t++ 

MSCP (Mass Storage Control Protocol) Definitions 

/* These definitions describe the format of the command and end message 


/* packets exchanged under MSCP between the host and the controller. 


aggregate GENERIC_MSCP structure prefix MSCP$; 


CMD_REF Longword unsigned; /* Command reference number 
UNIT structure word ynsigned: /* Unit number 
U_NO_OVERLAY ynien ill; 
EO_NO bitfield Length 8 mask; /* Emulated unit number 
EU_SUB_NO structure l; 
EU_SUBU bitfield Length : mask; /* Old-style unit number 
EU_SUBC bitfield length 5 mask; /* Old-style controller subtype 
constant ( ; mantyge values: 
EMS_CNSL, onsole 
EMS_RP, ta TAs: 
EMS_RM, Ree Be! 0/RPO7 
EMS_RK, RK06/07 
EMS_RL, RLO1/02 
MS— { RX211 
EMS-FD1, ¢ Foreign disk type 1 
EMS_FD2, Foreign disk type ¢ 
EMS_FDS, { Foreign disk type 
EMS_FD4, { Foreign disk type 4 
EMS_FDS, { Foreign disk type 5 
EMS_FD6, { Foreign disk type § 
EMS_FD7, ; Foreign disk type 
EMS_FD8 Foreign disk type 8 
) oets 0 increment 1; 
end EU_SUB_NO; 
end EU_NO OveRCAY; 
EU_CTYPE Bitfield Length 4 mask; /* Emulated controller type 
constant ( { controller type values: 
OLD, ; old-style (highest unit number is 7) 
EMD_UDA, UDA 
EMD_HSC, 443 
EMD_AZT, RC25 (AZTEC) 
EMD_RDRX, RD/RX 
EMD_EMUL Emulated 
) equais 0 increment 1; 
EU_DESIG bitfield length 3 mask; /* Emulated controller designator 
SHADOW bitfield mask; /* Shadow unit 


end UNIT; 

reserved word fill; 
OPCODE structure byte unsigned; /* MSCP operation code 
code bitfield length itl; f function code 
/ 
/ 


type bitfield Length mmediate / sequential / non-sequential 
-ATIN bitfield mask; * Attention message 
OP_END bitfield mask; * End message 
end OPTODE; 
MODIFIERS_STATUS union fill; 
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MODIFIERS structure fill; 
reserved byte fill; 
# er_base =.; 
MODIFIER word unsigned; 

end MODIFI 3 

FLAGS_STATUS structure fill; 


Th ate 
~ 
m 


FCAGS structure byte uns ign d; 
filler bitfield length > fill; 
EF_PLS bitfield mask; 

EF_EOT bitfield mask; 

EF_SEREX bitfield mask; 

EF_ERLOG bitfield mask; 

EF _BBLKU bitfield mask; 

EF BBLKR bitfield mask; 
end FLAGS; 


#status_base =.; 

STATUS structure word unsigned; 
ST_MASK bitfield Length 5 mask; 
constant 


SS St St St SH St SH SH SH SH Ht Ht Ht 


l increment 1, 
T equals 12, ( 


~YNYN~NNNYNNYN~VNNNKNNHNOHNNNNNYNMN 


als 31 increment 1; 
ield Length 11 mask; 


sc -~_«- a 


ST_SBCOD 
end STATUS; 
end FLAGS_STATUS; 
end MODIFIERS_STATUS; 


#end_basic_packet = .; 


mM 
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base for modifiers setup 
MSCP command modifiers 


End message flags 


Position Lost (tapes only) 

End of Tape Encountered yo only) 
Serious exception (tapes only) 

Error Log generated 

Bad block unreported (disks only) 
Bad block reported (disks only) 


base for status setup 
End message status 
Status code bits 
status code values: 
Success 
Invalid command 
Command aborted 
Unit-offline 
Unit-available 
Media format error 
Write protected 
Compare error 
Data error 
Host buffer access error 
Controller error 
Drive error 
Formatter error (tapes only) 
BOT encountered (tapes only) 
Tape mark encountered (tapes only) 


Shadow set state change (disks only) 

Record data truncated spages only) 

Position lost (tapes only 

Previous serious exception (tapes only) 

LEOT detected (tapes only) 

Bad block replacement completed (disks only) 


Message from internal diagnostic 
Subcode multiplier 


Subcode bits 
Subcode values defined seperately below 


/* MSCP Command Operation Codes (defined in alphabetical order) 
/* Abort 


constant OP_ABORT equals 1; 


SYSC 


N 
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constant OP_ACCES equals 16; /* Access 

constant OP_AVAIL equals 8; /* Available 

constant OP-CMPCD equals 17; /* Compare Controller Data 
constant OP_COMP equals 34; /* Compare Host Data 
constant OP_DTACP equals \; /* Determine Access Paths 
constant OP_ERASE equals 18; /* Erase 

constant OP_ERGAP equals 22; /* Erase Gap (tapes only) 
constant OP_FLUSH equals 19; /* Flush 

constant OP_GTCMD equals 2; /* Get Command Status 
constant OP_GTUNT equals 5; /* Get Unit Status 

constant OP_ONLIN equais /* Online 

constant OP_READ equals 35; /* Read 

constant OP_REPLC equals 20; /* Replace 

constant OP_REPOS equals 57; /* Reposition (tapes — 
constant OP_STCON equals 4; /* Set Controller Characteristics 
constant OP_STUNT equals 16; /* Set Unit Characteristics 
constant OP_WRITE equals 3 /* Write 

constant OP_WRITM equals 36; /* Write Tape Mark 

/* MSCP End Message Codes 

constant OP_SEREX equals 7; /* Serious Execption (end message only) 
/* MSCP Attention Message Codes ‘listed in alphabetical order) 

constant OP_ACPTH equals 66; /* Access Path 

constant OP_AVATN equals 64; /* Available 

constant OP_DUPUN equals 65; /* Duplicate Unit Number 
constant OP_RWATN equals 67; /* Rewind (tapes only) 


end GENERIC_MSCP; 
aggregate MSCP_MODIFIERS structure prefix MSCP$; 


filler byte dimension #modifier_base fill; 
ALL_MODIFIERS union fill; 


/* Generic MSCP Modifiers 


constant OP_END equals %x80; /* End Message Flag 
mae |) MODIFIERS structure fill; { Generic command modifiers: 


iller bitfield Length 8 fill; 
MD_SEREC bitfield mask; /* Suppress error recovery 
MD_SECOR bitfield mask; /* Suppress error correction 
filler bitfield Length 3 fill; 
MD_CLSEX pict iele mask; /* Clear serious exception 
MD _ COMP bitfield mask; /* Compare 

end GERERIC_MODIFIERS; 

DISK_MODIFIERS structure fill; { Generic disk command modifiers: 
Tiller bitfield Length 4 fill; | 
MD_WRSEQ bitfield mask; /* Write shadow set 1 unit at a time 
MD_WBKVL bitfield mask; /* Write-back (volatile) 
MD“WBKNV bitfield mask; /* Write-back (non-volatile) 
MD_SSHDW bitfield mask; /* Suppress Shadowing 
filler bitfield length 2 fill; 
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MD_SCCHL bitfield mask; 
MD_SCCHH bitfield mask; 
MD_ERROR bitfield mask; 
tiller bitfield Length 2 fill; 
MD_EXPRS bitfield mask; 

end DISK_MODIFIERS; 

TAPE_MODIFIERS structure fill; 
Tiller bitfield Length 1 fill; 
MD_REWND bitfield mask; 
MD_OBJCT bitfield mask; 
MD_REVRS bitfield mask; 
MD_UNLOD bitfield mask; 
MD_EXCLU bitfield mask; 
MD_IMMED bitfield mask; 
MD _DLEOT bitfield mask; 

end TAPE_MODIFIERS; 

AVAIL_MODIFIERS structure fill; 
MB_ALLCD bitfield mask; 
MD_SPNDW bitfield mask; 
MD_DSOLV bitfield mask; 

end AVAIL_MODIFIERS; 

FLUSH_MODIFIERS structure fill; 
MO_FLENU bitfield mask; 
MD _VOLTL bitfield mask; 

end FLOSH_MODIFIERS; 

GTUNT_ MODIFIERS structure fill; 
MB_NXUNT bitfield mask; 

end GTONT_MODIFIERS; 

ONLIN_STUNT_MODIFIERS structure fill; 
MD_RIP bitfield mask; 
MD_IGNMF bitfield mask; 
MD_STWRF bitfield mask; 
MD_CLWBL bitfield mask; 
MD_SHDSP bitfield mask; 

end ONCIN_STUNT_MODIFIERS; 

REPLC_MODIFIERS structure fill; 
MB_PRIMR bitfield mask; 

end REPLC_MODIFIERS; 


end ALL_MODIFIERS; 
end MSCP_MODIFIERS; 
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aogregate MSCP_SUBCODES structure prefix MSCP$; 


filler byte dimension #status_base fill; 


ALL SUBCS cron fill; 


Ow speed) 


Suppress caching (1 
“4 ing (high speed) 


Suppress cach 
Force error 


Express request 


Generic tape command modifiers: 


Rewind 
Object count 
R € 


Exclusive 
Request immediate completion 
Request detect LEOT 


Available command modifiers: 
ALL class drivers 
Spin down 
Disolve shadow set 


Flush command modifiers: 
Flush entire unit 
Flush volitile only 


Get unit status command modifiers: 
Next unit 


Online and set unit characteristics modifiers: 
Llow self-destruct (online only 
gnore media format error (online only) 


lear Write-Back Data Lost 


l 
t 
peg Set Write Protect 
Shadow Unit Specified 


Repsece command modifiers: 
rimary replacement block 


NOTE: 
f Many of the subcode values are defined such that they produce bit 
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yp Ban is not a requirement in the MSCP "Phe bit ttetd So long 
ney pubc odes continue ° orgeuee bit Lhe $. field 

detinit ons here may rema es jelds are no 

Longer produced, the bit reid dein tions “aust = removed here and 

the code which breaks must be fixed. 


/* Success Subcode Values 
SC_SUCC structure fill; 


constant SC_NORML equals 9 /* Normal 
constant SC_SDIGN equals 1; /* § Hy Down IGNored 
constant SC_STCON equals ¢: /* S$ CONnec ted 
constant SC_DUPUN equals 4; /* sfit a! Ba ; number 
constant SC_ALONL equals 8; /* ALread 
constant SC_STONL equals 16; /* STILL mein 
constant SC_EOT equals 32; /* EOT encountered (tapes only) 
constant SC_INREP equals 32; /* ptcone ete REPlLacement (disks only) 
constant SC_IVRCT gavels 64; /* InValid RCT (disks only) 
bit_fields union fill; 
fields_1 strycture fi 
filler bitfield Length 5 fill 
SC_SDIGN bitfield mask; /* Sein Down IGNored 
SC_STCON bitfield mask; /* STILL CONnected 
SC_DUPUN bitfield mask; /* Se gets uans number 
SC_ALONL bitfield mask; /* oeceeey. OF = ne 
SC_STONL bitfield mask; /* STILL ONLin 
SC_EOT bitfield mask; /* EOT encountered (tapes only) 
end fields_1; 
field_2 etructure fill 
filler bitfield Length 10 fill 
SC_INREP bitfield mask; /* INcomplete REPLacement fetene only) 
SC_IVRCT bitfield mask; /* InValid RCT (disks only) 
end fields_2; 
it_fields; 


end SC osucts 
/* Invalid Command Subcode Values 

constant SC_INVML equals 0; /* INValid Message Length 
/* Unit-Offline Subcode Values 

SC_OFFLN structure fill; 


constant SC_UNKNO equals 9: /* UNKoNOwn unit or online to another controller 
constant SC_NOVOL equals 1; /* NO VOLume mounted or drive disabled (RUN/STOP) 
constant SC_INOPR equals 2; /* unit is INOPeRative 

{ duplicate unit number (already defined above) 
constant SC ste cqvels § . /* Unit disabled by field service or diagnost 
filler bitfTeld Length 5 fill; 
$C NOVOE bitfield mask; /* NO yO une sounted © or drive disabled (RUN/STOP) 
SC_INOPR bitfield mask; /* a s INOPeRative 
dupun bitfield fill; { ust icote unit number (already defined above) 

al +5 ~OFFLN: bitfield mask; /* Unit disabled by field service or diagnostic 


/* Unit-Available Subcode Values 
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constant SC_NOMEMB equals 1; 


/* Write-Protected Subcode Values 


iller bitfTeld Lengt itl; 
$f ys tfield mask; 

filler bitfield Length 3 fill; 
SC_SOFTW bitfield mask; 
SC_HARDW bitfield mask; 


end SC_WRTPR; 

/* Data Error Subcode Values 

constant SC_FRCER equals 0; 

/* Host Buffer Access Error Subcode Values 
constant ( 


/* Controller Error Subcode Values 
constant ( 


equals 1 increment 1; 

/* Bad Block Replacement Subcode Values 
constant ( 

a NOTRP, 


SC"RPLFL, 
SCTICRCT, 
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{ 


/* 


Cf 


No members 


Unit is DATA Loss write protected 
Unit is SOF TWare protected 
Unit is HARDWare protected 


Unit is DATA Loss write protected 


Unit is SOF TWare protected 
Unit is HARDWare protected 


FoRDed ERror 


Odd transfer address 
Odd BCNT 


Non-existant memory 

Host memory parity 
Invalid page table entry 
Invalid buffer name 
Buffer length violation 
Access control violation 


Date late 

EOC error 

Data structure error 

Internal EDC error 

LESI adapter card input parity 

LESI adapter card output parity |. 

LES] adapter card “‘cable in place’’ not asserted 
Controller overrun or underrun 

Controller memory error 

Insufficient resources 


ad block replacement successful 
lock tested ok, not replaced 
cPLACS command failure 

s 


8 
8 
R fail 
Inconsistant RCT 


end 
end, 
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SC_DRVER 
) equals 0 increment 1; 


end ALL_SUBCS; 
end MSCP_SUBCODES; 
/* Definitions for MSCP Transfer Commands 


base byte dimens #end_basic_packet fill; 


BYTE_CNT Longword ume ioned: 
BUFFER byte unsigned dimension 12; 
DISK_TAPE union fili; 
SISK structure fill; 
LBN structure longword unsigned; 
BAD longword unsigned; 
end ; 
end DISK; 
TAPE structure fill; 
SITION Longword unsigned; 
ioe Longword unsigned; 


end TAPE 
end DISK_TAPE; 
end TRANSFER_COMMANDS; 


aggregate ABORT_GTCMD structure prefix MSCP$; 
base byte dimension #end_basic_packet fill; 
tun the tongvorg nt ged 
ongword unsigned; 
end ABORT _GTCMD: . 


aggregate GTUNT structure prefix MSCP$; 


base byte dimension #end_basic_packet fill; 
MULT_UNT word unsigned; 
UNT_FLGS structure word unsigned; 

UF _CMPRD bitfield mask; 


UF -gmeun bitfield mask; 
UF 576 bitfield mask; 
filler bitfield fill; 
UF _VARSP bitfield mask; 
UF _LVSMSU bitfield mask; 
_WBKNV bitfield mask; 
UF _LRMVBL bitfield mask; 
UF _LWRTPD bitfield mask; 
_SSMST bitfield mask; 
UF _SCCHL bitfield mask; 
UF_SCCHH bitfield mask; 
UF _LWRTPS bitfield mask; 


aggregate nage ean pata: we structure prefix MSCP$; 
on 


/* Definitions for Abort and Get Command Status 


{ 


/t 
/t 


/t 


/t 
* 
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Drive error 


Byte count 
Buffer descriptor 


hegicet block number 
irst bad block 


Position (object count) 
Tape record byte count 


Commands and End Messages 


Outstanding reference number 
Command status 


/* Definitions for the Get Unit Status Command and End Message 


Multi-unit code 
Unit flags 
Compare reads 
compare writes 
6 byte sectors (disks only] 


Variable speed unit Ctapes only] 

Variable speed mode supere sion Ctapes only] 
Write-back (non-volatile) Cdisks only 
Removeable media (disks only] 

Write protect (data loss) 

Shadow set master 

Suppress caching (Low speed) (disks only? 
sugpress caching (High speed) (disks only] 
Write protect (software) 


cohinel 
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UF _WRTPH bitfield mask; 

UF _SSMEM bitfield mask; 

UF -REPLC bitfield mask; 
end UNT_FLGS; 


reserved longword fill; 
UNIT_ID structure quadwor una tgned: 
Exch LBA longword unsigned; 
xe LBC word unsigned; 


end UN 
DEV_PARM “OVERLAY union fiUL: 
“DEV_PARM Longword unsigned; 


eld length 7 mas 
dl th 


AP bitfield lengt mask; 
BIYPTA bitfield length 5 mask; 
mrve Ao bitfield length 5 mask; 
MTYP_D1 bitfield Length 5 mask; 
wt Toate a” bitfield length 5 mask; 


nd MEDI 
end DEV_PARM Anti ay: 
TAPE_CMB union fill 
SKS ISKe CMD structure “ius 
SHDW T word unsigned: 
SPD ait union fill; 
SPD word unsigned; 
oniaes ( 
S_NOCPY, 
cs “COPY, 
. shecPy 
uals 0 am pee py 1; 
suow ST 


word un igned: 
topyiP bittiel mask; 
end SPD STS; 


CMB; 
TAPE_CMD structure fill; 
0 « f B00 bitte word unsigned; 

00 ld ~ 

PE bitfield mask 
at tf ager bitfield nash: 
e 
SPEED word’ ‘uns toned: 


end TAPE 
end DISK TAPE. CMO; 


#longest_command = .; 


DISK_TAPE_END union fill 
“i structure ‘fius 


$ 
HVR byte unsigned: 
IZE word unsigned; 


OTA. 1p ph oietieta | lontuora uns igned; 


#onlin_stunt_Base = .; {-- marker for beginning of 
{{{{ The Longest command ends here. }}}) 


F 
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Write gee > een 
Shadow pes aber 
Controller init ated bad block replacement (disks only] 


Unit identifier 
Excluded LBN area address (disks only] 
Excluded LBN block count Cdisks only3 


pewlce dependent parameters 
moe’ a a,type | ident r 

i.e. 7 of RKO7) 
medi name char. 
Media name continued 


Dev mnemonic char. 
Mnemonic continued 


Shadow unit 


Copy speed 

Copy speeds: 
no copy 
regular copy 
merge copy 


Shadow unit status 
Shadow copy in progress 


PARTI * 800 bpi 
Phase encoted 1600 b 
Group code tans iy 6250 bpi 


Speed 


online & set unit characteristics defs. 


Track size 

Group size 

Cylinder size 

Unit software version 
Unit hardware version 
RCT size 
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Py unsi gned: /* RBNs per trogk 
se mcr cet CPYS byte unsigned; /* Number of RCT copies 
TAPE_END™ ~ fill; 
na Cotton word unsigned; /* Format menu 


end tt TTAPES ON: 


pS ps The longest nee ends here. }})}) 
#longest_end_message = 


end GTUNT; 
/* Definitions for Online and Set Unit Characteristics Command and End Messages 
aggregate ONLIN_STUNT structure prefix MSCPS$; 


marker byte dimension #onlin_stunt_base fill; 
DISK_TAPE union fill; 
SISK structure fill; 
As P unsigned; 
voL- SER longword unsigned; 


DISK; 
TAPE structure fill; 

mAXU onguord, wares /* Maximum write record size 
NOLSEREC a unsigned; /* Noise record 


end 7 
end DISK "Tape; 
end ONLIN_STUNT; 
/* Definitions for the Replace Command and End Message (disks only) 


eperegete | REPLC a prefix MSCP$; 
base byte dimension #end basic “packet fill; 
co eo unsigned; /* Replacement block number 


/* Definitions for the Reposition Command and End Message (tapes only) 


aggregate REPOS structure prefix MSCP$; 
base byte dimension #end_basic “packet fill; 
CMDEND union fill; 
CMD structure fill; 
4 CNT Longword unsigned; 
CNT longword uns gned; 


ENDMSG Structure fill; 
RCSKIPED Longword. unsigned; /* Records skipped 
hae od a lLongword unsigned; /* Tape markes skipped 


end CMDEND; 7 
end REPOS; 


/* Definitions for the Set Controller Characteristics Command and End Message 


* Unit size 
* Volume serial number 


~™ 


* Record/Object count 
* Tape mark count 


~™ 
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1 


aggregate STCON structure prefix MSCPS$; 


filler byte yee eae 4 fill; 

CNT_ALCS byte signed: 

filter rybyte dinens hend_basic_packet-5 fill; 
SION word uns 


tnt “tr°8 
- 
F- 
i 
F 
F 
F 
F 
i 
F 
NTL 


end 
HST_ 


Semen AOOOOAOOO 


3283 


igned; 
n't alte word , una tgneds 
HADW bitfield d mask: 


i \¢ dnask: 


e 
id eat 7 fill; 
jeld mask; 


“structure were unsigned; 


wt aa. word unsigned; 


end 

CNT Wr “bree unsigned; 

CNT-HVR byte unsigned; 

Tl pervs ture quadword unsigned; 
ID quadword unsigned; 


end ri ; 


/* Controller and Unit identifier Classes. 


constant 
constant 
constant 
constant 


constant 


CL_CNTRL equals 1; 
cL “DISK equals 2; 
CL-TAPE equals z 
CL-D144 equals 4; 


* ontroller e 
/* MSCP C ler Model 
constant CM_HSC 4 equals 1; 
constant CM_UDA5O equals ¢ 
constant CM_RC25 equals 3; 
constant i equals 4; 
constant CM_T equals 5; 
constant ER" UDASO equals 6; 
constant CM_UDA50A equals 6; 
constant CM_RORX equals 7; 
constant CM_TOPS equals 8 
constant CM_TK5SO equals 
constant CM~RUX5O equals 10; 
constant CM_RC26 equals 11; 
constant CM_AIO equals \¢: 
constant CM_QDA5O equals 15; 
constant CM_BDA equals 14; 
constant CM_BSA equals 18: 
17; 


constant 


constant 
constant 


RECHOLEN equals #longest_command; 
MXCMDLEN equals #longest_command tag C; 


(Device 


H 
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Allocation class 


MSCP version 
Controller fla 
576 b ectors 4 be only] 


byte $s 
sks only] 


shede wing 
multi “Host 


nable this host's error log 
nable other host's error log 
Enable miscellaneous error log 
Enable attention messages 


Controller Initiated Bad Block Replacement (disks only] 


Host timeout 
Controller timeout 


Controller software version 
Controller hardware version 
Quad-word date-time 
Controller ID 


ass) 
/* MSCP Controller 


be. Class poviee 

e Class Devi 
be 144 Disk flass Device 
HSC59 


UDASO 
pcer (AZTEC) 
Em zat or 


Tu81 
UeAee (UDASOA old name) 
UDASOA 


RD/RX 
Tks 10/20 Emulator 


8 
CORS 
QDA2 


Longest Command 
Longest Command 
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constant 1 equals #longest_end_message; /* Longest He Message 
constant LEN equals #longest_end_message tag (; /* Longest End Message 
end STCON; 


end_module SMSCPDEF ; 


SYSO 
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module SMVLDEF; 


/ee 
/* MAGNETIC TAPE V Ste tts 


LIST 
. THIS STRUCTURE DESCRIBES 


THE VOLUMES IN A VOLUME SET 


aggregate MVLDEF Ah phen prefix MVLS$; 


VCB Longword uns /*ADDRESS OF VCB 
1 /*SPARE 


ett .| longword it” prefix MVLDEF tag $$; 
SIZE word unsigned; /*SIZE OF STRUCTURE 
TYPE “re yrtiee /*TYPE OF ee ee 
WVOLS yte un Ps ry OF VOLUMES IN VOLUME si 
SET_ID tharecter. len th 6; /*FILE SET ID FOR OA HE VOLUME S$ 
VOL ane byte unsigne /*VOLUME ACCESSIBILTY CHARACTER. DEFAULT 
MOU_PRV -py ERLAY “aien” fill; 
“MOU? PRV byte unsigned; /*USER'S MOUNT TIME PRIVILEGES 
MOU-PRV_BITS strurture fill; 
VOLPRO bitfield; /*VOLPRO PRIVILEGE 
OVRPRO bitfield: /*OVERRIDE PRIVILEGE (BYPASS,SYSPRV,VOLPRO) 
OPER bitfield; /*OPER PRIVILEDGE 
end MOU_PRV_BITS; 
end MOU_PRV_OVERLAY; 
VOLOWNER character =jenath 14; /* VOL1 ONER IDENTIFIER FIELD 
STOVER byte un /* ANSI VERSION OF VOLUME SET 
FILL 2 byte fill Orehts MVLDEF E tag § $$; /* SPARE 
constant FIXLEN equals . prefix MVL$ tag K; /*LENGTH OF FIXED AREA OF STRUCTURE 
constant FIXLEN equals . prefix MVL$ tag C; /*LENGTH OF FIXED AREA OF STRUCTURE 


end MVLDEF; 
/* THE FOLLOWING STRUCTURE IN REPEATED IN MVL FOR EACH REEL IN VOLUME SET 
aggregate MVLDEF1 structure pores MVLS$; 


a poets ed one /*VOLUME LABEL 
oy F ogres /*RELATIVE UNIT NUMBER 
SYATU OVERLAY union fill; 
STATUS byte unsigned; /*STATUS OF VOLUME 


constant feuneianed: - prefix MVL$ tag K; /*LENGTH OF STRUCTURE 
constant ‘LENGTH’ equals . prefix MVL$ tag C; /*LENGTH OF STRUCTURE 
STATUS BITS S structure fill; 

MOON poner IS MOUNTED 


UNUSED. bitfield; /*1S THIS ENTRY IN USE 
fad sty {| Ha /*CAN OVERRIDE PROTECTION ON THIS REEL 
end STATUS *OVERLAY: 


end MVLDEF1; 
end_module SMVLDEF; 


K 
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module SMVMSLDEF ; 


Ana 

SMVMSLDEF = mount verification messages List structure definition 

/* The MVMSL provides a mechanism for communicating information about 
/* mount verification messages to device driver special mount 

/* verification processing routines. 


/ 
aggregate MVMSLDEF structure prefix MVMSLS origin MSG_CODE; 


MAX IDX nye unsigned; /* Maximum legal MVMSL index 
SNDMSGO ongword; /* Offset from MVMSL base to "SEND MESSAGE routine 
MSG_CODE word unsigned; /* The MSG$_ code for this entry. 
FLAGS structure word uns igned: /* Processing flags: 
SUFFIX bitfield mas /* Do not add suffix. 


ow et be bitfield mask; /* May be suppressed. 
TEXTOFF Longwo ord; /* Offset from MVMSL base to ASCIC message text. 
constant "LENGTH" equals .; /* Length of a MVMSL entry. 

end MVMSLDEF; 


end_module SMVMSLDEF ; 


SYSDEFMP.SDL;1 16-SEP-1984 16:45:34.59 Page 35 


module SNBIADEF; 
aggregate NBIADEF structure prefix NBIA$; 


Jee 


. Nautilus NBIA register definitions 
oe NBIA sits in an NMI nexus and can connect one or two BIs to a Nautilus. 
CSRO_OVERLAY union Ly 4 
SRO Longword u sign ed; /* Control and Status 
CSR Are D,0 OVERLAY union fill; 
/* Adapter Type Field 


noes unsigned; 
CSRO ITs 3 structure fill; 


© ois riele Length 8 fill prefix NBIADEF tag $$; 

4 50 bitfield mask; /* BIO Power Up 
NRivu oitfield length 6; /* Vector Offset Register 
NPE bitfield mask; /* NBI Parity Error 
BILP bitfield mask; /* BIIC Loopback 
FNPE bitfield mask; /* Force NBI Parity error 
FDB bitfield mask; /* Force DMA busy 
FLIP_29 ge bitfield m /* Maintenance “magic 
FILL-1 Bitfield length ie FHL pretix ONBIADE EF t $; 
NIE Bitfield mask; * NBI Int nterrup Enable 
FILL_2 bitfield Length 2 fill prefix NBIADEF $$; 
TO] bitfield le /* Time-out seekers 
TOF bitfield mask; /* Transmitter Sur tee Fault 
WOSF bitfield mask; /* Write Data Sequence Fault 
ROSF bitfield mask; /* Read Data Sequence Fault 
CPF bitfield mask; /* Control Parity Fault 
per, bitfield mask; /* Data Parity Fault 

end C BITS; 

CSRO PIECD_OVERLAY 


end eeRo COVERLAY: 
CSR1_OVERLAY union fill; 
Csr 


1 songuvore uns igned /* NBIA CSR1 
CSR1_BITS structure Files 
Roin bitfield mask : /* Adaptor Init 
BIOP bitfield mask /* BIO Present 
BIIP bitfield mask: /* B11 Present 
BIO_PE bitfield — /* BIO Parity Error 
B11 Pe bitfield m /* B11 Parity P tees 
FILE pittiolg poe 3 fill prefix NBIADEF. tag $ 
BI1P0 bitfield mask; /* B11 Power Up 
NAWR bitfield mask: /* NBIA Wraparound (Maint Magic) 
FBPE bitfield mask; /* Force NBIB Parity Error 
da Fit 4 bitfield tength 21 fill prefix NBIADEF tag $$; 
end CSRI COVERCAY: 
BIOI longword unsigned; /* B10 Stop Register 


BI1I longword unsigned; /* B11 Stop Register 


SYSC 
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BR4VR Longword unsigned; 
BRSVR Longword unsigned; 
BR6VR longword unsigned; 
BR7VR Longword unsigned; 
end NBIADEF ; 
end_module SNBIADEF ; 


4 
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/* BR4 Vector Register 
/* BRS Vector Register 
/* BR6 Vector Register 
/* BR7 Vector Register 


N 
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module SNAFDEF ; 


A Structure for network proxy login file, NETUAF.DAT 


/t-- 


aggregate NAFDEF structure prefix NAFS$; 


— structure shores ser Length 64; /* Combined nodename and remote username 
NODE character anes /* Node name 
ey REreahe: character length 32; /* Remote username 
LOCALUSER character Length 32; /* Local username 
FLAGS structure lLongword; /* tags ponguers 
TASK bitfield — /* Allow task=0 access 
BATCH bitfield m /* Allow batch jobs 
4 INTERACTIVE bittield mask; /* Allow interactive login 
en 


AG 
constant “LENGTH': equals . tag K 
constant “‘LENGTH’’ equals . tag C: 


Length of record 
Length of record 


end NAFDEF; 
end_module SNAFDEF; 


SYSO 


22 
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module SNDTDEF; 
{ee 
. NEXUS DEVICE AND ADAPTER TYPE CODES 


venta a rol ree CODES 


constant MEMGNI equals § prefix NDT tag $; /*MEMORY, 4K NOT IN he LEAVES 

constant MEM4]1 equals pret ix, wer tag $; /*MEMORY, 4K INTERL AVED 

constant MEMI6NI equals +%Xx10 pr refix NDT tag $; /*MEMORY, 16x NOT INTER EAVED 

constant MEM161 + a +% pret NDT tag $; /sMEMORY, S orcs se 

constant MEM1664N 9 ls +% prefix NDT tag $; /*MEMORY, 16K AND 6 MIXED 

constant MB equals +% seatta NDT tag $; Ate A 0 OR 

constant UBO equals +%Xe8 prefix NDT tag $: man, Leg OR INTERCONNECT 0, 

constant UB1 equals +ZXx prefix NDT tag $; it ° 

constent Yes Sauels $HrQp pretis tal fag is 

constant Cl equals +ZXx i prefix NDT tag $; 1 Bales €1750'S 

constant MPMO equals +Zx40 prefix NDT tag $: /eMULTIPORT MEMORY 0, 

constant MPM1 equals +ZX41 prefix NDT tag $; /e 1, 

constant MPM equals +2%X42 prefix NDT tag $; * 2 

constant MPM equals *ZxX45 prefix NDT tag $; * OR 

constant DR3 equals +Zx30 prefix NDT tag $; /*DR32 

constant MEM64NIL equals +ZX68 prefix NOT tag $; /*64k NON-IN teat EAVED MEM, LOWER CONTROLLER 

constant MEM64EIL equals +%xX69 prefix NDT tag $; /*64K EXTERNALLY INTERLEAVED EM, 

constant MEM64NIU equals *+2X6A prefix NDT tag $; /*64K NON-INTERLEAVED MEM, UPPER CONTROLLER 

constant MEM64EIU equal *ZX6B prefix NDT tag $; /*64K EXTERNALLY INTERLEAVED MEM, UP 

constant MEM641 equals #ZX6C prefix NDT tag $; /*64K INTERNALLY INTERLEAVED MEMORY 

constant MEM2S6NIL equals +ZX70 prefix NOT tag $; /*256K NON-INTERLEAVED MEM, LOWER CONTROLLER 

constant MEM2S6EIL equals +ZX71 prefix NDT tag $; /*256K EXTERNALLY INTERL EAVED MEM, LOW 

constant MEM2S6NIU equals #ZX72 prefix NDT tag $; /*256K NON-INTERLEAVED UPPER CONTROLLER 

constant MEM256E1U equals +ZX75 prefix NDT tag $; /*256K EXTERNALLY INTERLEAVED MEM, UPPER 

constant equals +2X prefix NDT tag $; /*256K INTERNALLY INTERLEAV Y 
MEM2561 ls #2x74 fix NDT $; /*256K INTERNA INTERLEAVED MEMOR 

/* BI node device types. ° on word is hardware device type on Bl. 

/* High order word (i.e. the 8000) distinguishes device as H PB “device. 


/* First Bl memory nodes 
constant SCORMEM equals +%X80000001 prefix NDT tag $; /* Scorpio Memory 
/* Then other BI devices 


constant BIMFA equals +ZXx 1 prefix NDT tag $; /* BI Multi-Function Adapter 
constant BUA equals +Z%x80( : prefix NOT tag $; /* Bl UNIBUS adapter 
constant BSA equals +ZXx prefix NDT tag $; /* Es HF Adapter 

constant KDZ11 equals +2X 5 prefix NDT tag $; /* KDZ11 processor 
constant NBA equals +ZX prefix NDT tag $; /* Bi Adapter 

constant BNA equals +#ZXx prefix NDT tag $; /* BI-NI Adapter 

constant BCA equals +3Xx8000( 3 prefix NDT tag $; /* BI-CI Adapter 

constant BICOMBO equals +ZX prefix NDT tag $; /* BI Combo Board 

constant BAA equals +X A prefix NDT tag $; /* Bl-VenusAbus Adeoter 
constant BCI750 equals +Zx prefix NDT tag $; /* Interim BI-CI Adapt 
constant BIACP equals +%x8000010C prefix NDT tag $; /* Aurora Processor + 


Sa 


ee ey 
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constant AIO equals *%x 1 
constant BDA equals +2x 10€ 
constant AIE equals +*%x 10F 


prefix NDT tag $; /* Aurora 1/0 Module 
prefix NDT tag $; /* Bl-to-Disk Adapter 
prefix NDT tag $; /* Aurora 1/0 Extension Module 


end_module SNDTDEF; 


end 
end, 
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/* DIRECTORY RECORD 


soars s et eect. prefix NMBS; 


FID_FIELDS structure fill; 
FID, word unsigned; 
FID-SEQ word unsigned: 
FID-RVN word unsigned; 
end FID FIELDS; 
end FID_OVERLA 
~ word unsigned dimension 3; 
TYPE word unsigned; 
VERSION word; 


constant DIRENTRY equals . prefix NMB$ tag K; 
constant DIRENTRY equals . prefix NMBS$ tag C; 


FLAGS OVERLAY union fill; 
FCAGS word unsigned; 
ture fil 


FLAGS BITS syrus 
FILL_1 bitf 
ALLVER bitfield 
ALLTYP Ste mask; 
ALLNAM bitfield ma 
FILL_2 bitfield 
WILD bitfield mask; 
NEWVER bitfield mask; 
SUPERSEDE bitfield mpeks 
FINDFID ot stielé a 
FILL_3 bitfield 
LOWVER bitfield 
HIGHVER bitfield rn? 

GS ahh S; 


ASCHARIXT character OS ston 19; 


end ASCNAME; 
CONTEXT word unsi 


ed; 
constant “‘LENGTH' wequals - prefix NMB$ tag K; 
constant ‘LENGTH’ equals . prefix NMB$ tag C; 
end NMBDEF ; 


end_ 


module SNMBDEF; 


eld Length 3 fill prefix NMBDEF t 


mask; 
length 2 fill prefix NMBDEF 


Length 2 fill prefix NMBDEF 
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FORMAT OF THE FILE NAME BLOCK. THE FILE NAME BLOCK IS USED AS AN pen. 
INTERFACE TO he carcass team SCAN ROUTINE, AND IS ALSO THE FORMAT OF 


/* FILE ID 

/* FID = FILE NUMBER 

/* FID = FILE SEQUENCE NUMBER 
/* FID = RELATIVE VOLUME NUMBER 
/* FILE NAME py ats 

/* FILE TYPE (RAD=50) 

/* VERSION NUMBER 

/* LENGTH OF DIRECTORY ENTRY 

/* LENGTH OF DIRECTORY ENTRY 


/* NAME STATUS FLAGS 


he Oi ALL VERSIONS 


/* MATCH ALL TYP 
/* MATCH ALL NAMES 
tag $$; 
/* WILB CARDS IN FILE NAME 
/* MAXIMIZE VERSION NUMBER 
/* SUPERSEDE EXISTING FILE 
fs SE SEARCH FOR FILE ID 
ag 
/* 9 SER VERSION OF FILE EXISTS 
a HIGHER VERSION OF FILE EXISTS 


/* START POINT Ass Wt FIND 
/* LENGTH OF NAME BLO 
/* LENGTH OF NAME BLOCK 
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module SNSAARGDEF ; 


{re 
~ Security Auditing argument List definitions 


{t+ 
. Argument List header offset definitions 


mefine NSAARGHDRDEF structure prefix NSAS$; 


G_COUNT Lon - unsigned; /* Argument List count 
ARGE 1D_OVERLA on fi - 
“ARG_ID Lon word. uns /* Record identification lLongword 
ARG-ID_FIECDS. structure SFetts 
“ARG_TYPE word unsigned; /* Record type 
RG_SUBTYPE word unsigned; /* Record subtype 
end ARG_ID FIELDS; 
end ARG_ID OVERLAY; 
ARG_FLAG OVERLAY union fill; 
“ARG_FLAG byte unsigned; /* Flags byte 
FLAG_BITS structure fill; 
_FLAG_ALARM bitfield mask; /* Generate alarm for this record 
ARG_FLAG_JOURN bitfield mask; /* Journal this record 
ong sy Ao Bits. DY bitfield mask; /* Mandatory auditing 
ond sg FLAG OVERLAY: 
ARG_PK signed: /* Number of packets 
ARG_ SPARE shioestee ength 2; /* Spare bytes 


ARG_LIST character length 0; 


constant ARGHDR_LENGTH equals . tag C; 
constant ARGHDR_LENGTH equals . tag K; 


end NSAARGHDRDEF ; 


{t+ 
. Data packet argument passing mechanism definitions 
Qe 


constant (ARG_MECH_BYTE, /* Byte value 
a WORD, /* Word value 
ARG_MECH_LONG, /* Longword value 
ARG_MECH_ QUAD /* Quadword value 


ARG_MECH-DESCR /* Descriptor 
ARG MECH “Abe SCR) /* s of descriptor 
equals 0 increment 1 counter WME CHNUA ered x NSAS; 


constant ARG_MECHNUM equals #MECHNUM+1 prefix NSAS$; 


{t+ 
. Argument List definitions 
te 
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/* File access 
hiss NSAARGIDEF structure prefix NSAS; 


is faa Length NSASK gAneron LENGTH fill; 


ARG TM longword vis | = : 


“FIERA. ™ 2 Tonguor os ned: 


constant ARGI_LENGTH equals . tag + 
constant ARG1_LENGTH equals . tag K 


end NSAARGIDEF ; 


/* Volume mount 
aggregate NSAARG2DEF structure prefix NSAS; 


$$ character Length NSASK_ARGHDR_LENGTH wette 
ARG2_UIC_TM Longword unsig ne d; 

ARG UIC OLPRO TM Lo ee 

ARG2_VOLPRO_TM Longwor unsigned: 
ARG2_VOLPRO Longword unsigne 

ARG “MOUFLG. TM lLongword toned: 

ARG “TOeAR. +8 longword unsigne 


ARG “eCnaA Stee unsigned; 


constant ARG? LENGTH equals . tag C; 
constant ARG2_LENGTH equals . tag K; 


end NSAARG2DEF ; 


/* Volume dismount 


~ ™ TSS  S S 
aeeeene ee ee 


F 
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/* race List header 
MOD — and mechanism 

rate access mode 

FILNAM type and mechanism 
File name size 

File name address 

eae s7ee and mechanism 

m 

PRIVUSED t type and mechanism 
Privileges used for access 


Ag Argument List header 
* U ype and mechanism 
Volume UIC 
VOLPRO type and mechanism 
Volume protection 
MOUFLG type and mechanism 
Mount flags 
IMGNAM type and mechanism 
Image name 
DEYNAM type and mechanism 
Device name € 
Device name address 
LOGNAM type and mechanism 
Logical name size 
topic name address 
OLNAM type and mechanism 
lone name oie 
Volume name add 
VOLSNAM cree eg mechanism 
Volume set nane size 
Volume set name address 


w 
ate 
N 


— 
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aggregate NSAARGSDEF structure prefix NSAS; 


$$ character pongth NSASK_ARGHDR_LENGTH fill; /* Argveent List header 
ARG3_ fLG_TM Longword gns a; /* DMOUFLG ty and mechanism 
ARG LG lLongword unsigned; /* Dismount flags 

G TA Longword unsigned; /* IMGNAM type and mechanism 


ARG3_DEVNAM_TM_ Longword d; /* DEVNAM type and mechanism 
ARGS _ EVN SHE Longword unsigned; /* Device name size 
ARGS_DEVNAM_PTR Longword une tgned: /* Device name address 
ARGS_LOGNAM_TM Longword uns d; /* LOGNAM type mechanism 
ARG =LOGNAN SIZ lLongword unsigned; /* Logical name size 

ARGS_ PTR Longword unsigned; /* pepnsas name address 
ARGS_VOLNAM_TM Longword uns d; /* VOLNAM type and mechanism 
ARGS _VOLNAM_SIZ Longword unsigned; /* Volume name size 
ARGS_VOLNAM_ PTR lLongword unsigned; /* Volume name address 
ARGS_VOLSNAA_TM Longword unsigned; /* VOLSNAM type and mechanism 
ARGS_VOLSNAM_SIZ longword unsigned; /* Volume set name size 
ARGS_VOLSNAM_PTR Longword unsigned; /* Volume set name address 


constant ARGS_LENGTH equals . tag C; 
constant ARGS_LENGTH equals . tag K; 


end NSAARGSDEF ; 
end_module SNSAARGDEF ; 
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module SNSAEVTDEF ; 
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/e 
/* security Asti E ine event class bit d pat py beeen This macro defines 


/* the bits h are used to enable 
. each class of system event. 


aggregate NSAEVTDEF structure prefix NSAS; 


EvT -5t% -OVER AY union sates 
word uns gnedi /* 
vIe “318 th +> Sttverurs lt; pe 
Ey Mi “ROUNT P eleticide ss monks /* 


/* 
evi -UAr bitfield mask; 
SPARE a Length 32-* 


end EVI SYS 
end EVT_SYS_OVERLAY; 
EVT_LOGB byte unsigned; /* 
EVT_LOGI byte unsigned: /* 


ournaling and alarms for 


Misc system event mask 


ACL requested audits 
MOUNT and DISMOUNT peaqusets 
Modifications made to the system 


/* or network authorization files 


mask; 


Breakin detection event mask 
Login event mask 

Login failure event mask 
Logout event mask 


/ 
Jeboteakbocscstasereneteneueuseosaneeeensoete LARA RA SAAAAALALARALAAL SSAA AALS SS | 


/* The followi file access masks must be 


/teeereeerereeeeareeeeeeeeKekeeeeAeeeeeReReeeeee 


EVT_FAILURE Longword unsigned; /* 
EVT =SUCCESS lLongword unsigned: /* 
EVT “SYSPRV Longword une jgned; /* 
EVT “BYPASS longword unetenee /* 

VT_UPGRADE Longword uns qned: /* 
EVI DOWNGRADE lLongword = ned; /* 
EVT_GRPPRV Longword unsi /* 


EVT_READALL Longword uns + % /* 


/teeeeeteceereree 
/* End of file access masks 


contiguous and in the current order 
SRK eeeeeeeeeeeeeeeereeaeee 
Access failures event mask 
Successful access event mask 
Success due to SYSPRV event mask 
Success due to BYPASS event mask 
Success due to UPGRADE event mask 
Success due to DOWNGRADE event mask 
Success due to GRPPRV event mask 
Success due to READALL event mask 


geererene cn» FEI th. 5. 2 oe Bon Ben Bw ee cen Bt te Bao I 


/AHHHHHHAAAAHKHKHHKARERATATAKAAATRERAAAAe eA AAA KAKA eee eeeeeeeeeeeereeeeeees 


constant EVT_LENGTH equals . tag C; 
constant EVT“LENGTH equals . tag K; 


end NSAEVTDEF ; 


s09r eat fon G BAY birtiel structure prefix NSA$; 
T bitfield mask; /* Bat 
EVT_LOG_DIA bitfield mask: /* eles 
EVT-LOG_LOC bitfield mask; /* Local 
VT_LOG-REM bitfield mask; /* Remote 
VT-LOG_NET bitfield mask; /* posers 
evi _LOG_ se bitfield mask; /* Subpro 
“LOG DET bitfield mask; /* Detached process 


EvT 
end NSAEVTLOGBITS; 
end_module SNSAEVTDEF ; 
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SYSC 


2 2 
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module SNSAIDTDEF; 
{e+ 
. Security Auditing Impure Data Table offset definitions 


aggregate NSAIDTDEF structure prefix NSA$; 


IDT_ALARM_HDR character Length 3e08i /* Alarm header buffer 
IDT_RECORD_BUF character vongyh 024; /* Record buffer 


al ” ong¢: /* Record buffer descriptor 
IDT_RECORD DT character length 128; /* Record descriptor table 
IDTZAUDIT_CHAN Longword unsigned; /* 


Audit journal channel number 
constant IDT_LENGTH equals . tag C; 
constant IDT_LENGTH equals . tag K; 


constant IDT_PAGES equals (.+511)a-9; /* Number of pages for IDT 
end NSAIDTDEF; 
end_module SNSAIDTDEF; 


SYSDEFMP.SDL;1 
module SORBDEF ; 
/e+ 


/* 
/* 4 

. or various objects with 
/t- 


aggregate ORBDEF structure prefix ORBS; 


n the system. 


ACL_MUTEX Longer unsigned; /* 
SIZE word unsigned; /* 
TYPE byte unsigned; /* 
FLAGS structure byte unsigned; /* 
oT.1 pittisie mask; /* 
CL_QUEUVE bitfield mask; /* 
E VECTOR bitfield mask; /* 
C bitfield mask; /* 
CLASS_P®0T bitfield mask; /* 

end FLAGS; 
FILL_1 word fill; /* 
REFCOUNT word unsigned; /* 


MODE OVERLAY union fill; 
MODE PROT structure quadword unsigned; /* 
OTL longword unsigned; /* 


MODE"PROTH longword unsigned; /* 
end MODE-PROT; 

MODE byte unsigned; /* 
end MODE OVERLAY; 

SYS_PROT-OVERLAY union fill; 

SYS_PROT Longword unsigned; /* 

PROT word uns grea: /* 
end SYS_PROT_OVERLAY; 

PROT longword unsigned; fe 
GRP_PROT longword unsigned; /* 
WOR_PROT Longwor une tered: /* 
ACL_1_OVERLAY union fill; 

ACLFL longword unsigned; /* 


oe ao longword unsigned; /* 
end ACL_1_ OVERLAY; 


ACL_2 OVERLAY union fill; 
ATLBL word unsigned; /* 
ACL_DESC onguere unsigned; /* 
end ACL_2_OVERLAY; 
MIN_CLASS structure; 
FILL_2 pyte dimension 20 fill; /* 
end MIN CLASS; 
MAX_CLASS structure; 
FILL_3 byte dimension 20 fill; /* 
end MAX_CLASS; 


constant "LENGTH equals . prefix ORBS tag K; 
constant ‘LENGTH’ equals . prefix ORBS$ tag C; 
end ORBDEF ; 
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ject’s Rights Block - ecrusture defining the protection information 


R structure longword unsigned; /* Object's owner 
UICMEMBER word unsigned; /* Member number 
UICGROUP word unsigned; /* Group number 


Mutex for this age 

Size of the ORB in bytes 
Structure type 
Field modifiers 

Use word not vector protection 

Use ACL queue not descriptor List 
Use vector not byte mode protection 
Ob oct cannot have an ~~. 

Security classification is valid 


Unused 
Reference count 


Mode protection vector 
Low longword of vector 
High longword of vector 
Simple access mode 
systes protection field 
Standard SOGW protection 
Owner protection field 
Group protection field 
World protection field 
ACL queue forward Link 
Count of ACL segments 


ACL queue backward Link 
Address of ACL segment descriptor List 


Minimum classification mask 
Maximum classification mask 


/* Structure length 
/* Structure Length 


| 
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end_module SORBDEF ; 


M 
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gogute SPBDEF ; 
i. PB = SCS PATH BLOCK 
/* ie PB as ier Coney ten apouT THE PUYSCAL PATH TO ANOTHER 


/* SYSTEM IN A CLUSTER, PATH BLOCKS TO une SAME SYSTEM ARE 
. LINKED TOGETHER TO THE SYSTEM BLOCK (SB). 


esorepete f PBDEF structure Brea PBS; 


INK lLongword unsigne /*FWO LINK TO NEXT PB 
BLINK longword unsigned; /*BACK LINK TO PREVIOUS PB 
SIZE word unsigned; /*STRUCTURE SIZE IN BYTES 
TYPE ee unsigned; /*SCS STRUCTURE TYPE 
SUBTYP byte unsigned; /*SCS STRUCT SUBTYPE FOR PB 
RSTATION byte ns igned dimension 6; /*REMOTE STATION ADDRESS 
STATE word unsigne /*PATH STATE 
/*STATE DEFINITIONS: 
/* 0 ORIGIN, INCREMENTS OF 1 
constant ( 
CLOSED /* NEWLY CREATED PATHBLOCK 
- ST SENT /* START SENT 
- ST_REC /* START RECEIVED 
OPEN /* OPEN PORT=PORT VIRTUAL CIRCUIT 
j equals 0 increment 1 Bree efix PB t tog Sc /* 
constant VC_FAIL equals (%x8000) pre ix PB tag $C;/* VC FAILURE IN PROGRESS STATE 


constant PWR FAIL equals (3x6000) prefix PB tag $C;/* PWR FAIL RECOVERY IN PROGRESS STATE 


RPORT_TYP -OVERLAY union fill; 
RPORT— Peele str unsigned 
RPORT -1YP BITS structure Ht: 

PORT_TYP bitfield Len th $1; /* HARDWARE PORT TYPE, 
DUALPATH Battista mas /* 0/1 FOR SINGLE PATH/DUAL PATH PORT 
end RPORT_TYP BITS; 
end RPORT TYB"OVERLAY 


/*HARDWARE PORT TYPE CODE 


constant 178 equals prefix PB tag $C;/* C1780 BO 
constant C1750 equals prefix PB tag $C;/* C1750 PORT (=C€1780) 
constant HSC equals 4 orefix PB tag $C;/* HSC i 
constant KL10 equals § prefix PB tag $C;/* KLIPA 
constant CINT equals prefix PB tag $C;/* CI NODE OF STER 
constant NI equals 8 prefix PB tag $C;/* NI-DEUNA PORT 
constant PS equals 9 prefix PB tag $C:/* PASSTHRU PORT 
RPORT_REV lLongword unsigned; /*REMOTE PORT HW REV LEVEL 
a ans’  SanaNRy vn /*REMOTE PORT FUNCTION MASK 
byte /*OWNING PORT WHICH RESET REMOTE PORT 

RSTATE Ove LAY “union “tits 

RSTATE byte unsigned; /*REMOTE PORT STATUS: 

RSTATE_B is strusture fill; 

RATNT T bitfield mask; /* 0/1 FOR MAINTENANCE MODE NO/YES 


TE bitfield | Length 2; /* REMOTE PORT STATE: 


STA 
end RSTATE_BITS; 
/* DEFINE REMOTE STATES, 0 ORIGIN 
constant ( 


UNINIT /* UNINITIALIZED, 
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+ DISAB 


§ equals 0. increment 1 prefix PB tag $C; 
end RSTATE. VERLAY 
RETRY word “uns igne ed; 
LPORT_NAME character Length 4; 
CBL_STS_OVERLAY union fill; 
“CBL- byte unsigned; 
CBL_STS_BITS structure fill; 
BL bitfield mask; 


PO_S1 signed; 
ete OVERLAY union be 
1-sTS Byte uns ign 
_51S_BIT fH fill; 
ston PS bitfield mask; 
end P1_ST pitee 
end PI _STS_OV 
FILL_1 byte fil “aiethe PBDEF tag $$; 
PDT Tongword unsigned; 


mo 
= 
2 


SBLINK Longword unsigned; 
CDTLST Longword unsigned; 


WAITQFL ponerse unsigned; 
sated roye = union fill; 
lLongword unsigned; 
wat TRE songeere unsigned; 
ene VAI TOBE OV 
SCSMSG natant “une lgned: 
e180 $9 en 
word unsigned; 
S18 BITS tructure fill; 
Bi b 18: eld mask; 


end BITS; 
end STS OVERLA 
VCFAIL_RSN —~ unsigned; 


PROTOCOL byte unsign 
atte pyte dimens on ‘j fill prefix egoer t 


word dimension 2 fill prefix raber ta tag oS; / 


cee OnPENGTH™ equals . prefix PB$ tag K 
constant ‘LENGTH’ equals . prefix PB$ tag C: 


end PBDEF; 
end_module SPBDEF; 
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/*START HANDSHAKE RETRY COUNT 
/*LOCAL PORT DEVICE NAME 


/*CABLE STATUS TO THE REMOTE 
/* 1/0 FOR CURRENT STATUS OK/BAD 


/*PATH 0 STATUS 
/*PATH 1 STATUS 
/* 1/0 FOR CURRENT STATUS OK/BROKEN 


/*RESERVED BYTE 

/*ADDR OF PORT DESCRIPTOR TABLE FOR 
/* LOCAL PORT 

7*LINK to SYSTEM BLOCK 

/*LINK i FIRST CDT OVER THIS PATH 
/* (0 IF_NO CDT'S) 

/* SCS SEND MSG WAIT QUEUE FLINK 


/*SCS_ SEND MSG WAIT QUEUE BLINK 
/*START HANDSHAKE TIMER 


/*ADDR OF SCS MESSAGE BUFFER 
/*PATH BLOCK STATUS 
/* HANDSHAKE TIMEOUT IN PROGRESS 


/*VvC rasLune REASON (VMS 

/*STATUS CODE 

/*PPD PROTOCOL LEVEL 

/*RESERVED BY i 

tartan ae LONGWDS 
LENGTH OF A PATH BLOCK 

7*LENGTH OF A PATH BLOCK 


mene SPBHDEF ; 
A DEFINE PERFORMANCE BUFFER HEADER 


98" soraF PRHDEF + pete A prefix PBH$; 
FRFL Longword uns jgned : 
BUFRBL longword unsigned; 

SIZE word unsigned; 
TYPE byte unsigned; 
MSGCNT word unsigned; 
constant START equals . prefix te tag ts 
constant START equals . prefix PB «Bet 
FILLL1 byte dimension 499 fill pretix. ner tag 
constant "LENGTH" equals . prefix PBHS 
constant ‘LENGTH’ equals . prefix PBHS Me C: 


end PBHDEF ; 
end_moaule S$PBHDEF ; 


y, 
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Srecake tte 

F Bip gee DATA BUFFER 
TRUCTURE TYPE 

of RESSAGES IN BUFFER 
/*START OF DATA AREA 

$$; oer ene AREA 


ENGTH OF PERFORMANCE DATA BUFFER 
/*LENGTH OF PERFORMANCE DATA BUFFER 
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gems SPBODEF ; 
oe PBO = SCSSCONFIG_PTH CALL OUTPUT ARRAY FORMAT 
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/* THE OUTPUT ARRAY RETURNED FROM THE SCSSCONFIG_PTH CALL. DATA IS MOSTLY COPIED 


he FROM THE PATH BLOCK (PB) BEING LOOKED UP. 


POR 

RPORT_REV Longword unsigned; 
RPORT_FCN Lenguerg unsigned; 
RST_PORT byte unsigned; 


RSTATE byte unsigned; 

RETRY word unsigned; 
LPORT_NAME character Length 4; 
CBL_STS b 


STS byte unsigned; 


P1I"STS byte unsigned; 
FICL_1 byte fill prefix PBODEF tag $$: 


NXT_RSTAT byte unsigned dimension 6; 
Fue word fill prefix PBODEF tag $$; 


NX q ; 

SYSTEMID byte unsigned dimension 6; 

FILL_1 word fill prefix PBODEF tag $$; 
constant "LENGTH equals . prefix PBO$ tag C; 
constant "LENGTH" equals . prefix PBO$ tag K; 


end PBODEF ; 


end_module $PBODEF ; 


/*REMOTE STATION ADDR 
/*PATH STA 
/*REMOTE PORT HW PORT TYPE 


E 

* TE PORT FUNCTION MASK 

*OWNING PORT WHICH LAST 

/* RESET THIS REMOTE 
/*REMOTE PORT STATE 

/*START HANDSHAKE RETRIES LEFT 
/*LOCAL PORT DEVICE NAME 
/*CURRENT CABLE STATUS 
/*PATH ? STATUS 

/*PATH 1 STATUS 

/*RESERVED BYTE 

/*SPECIFIER OF NEXT VC (PB) 
/* TO THIS SYSTEM (12 BYTE 
/* SPECIFIER FOLLOWS: ) 

/* REMOTE STATION ADDR 

/* RESERVED WORD 

* LOCAL PORT NAME ON NXT PB 
ve tute areren ASSOC WITH 


/* T 

/*RESERVED WORD 
/*LENGTH OF PBO 
/*LENGTH OF PBO 


SYS 
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STATE word uns toned; seunttic STATE 
WEFC byte uns igned; /*WAl EF SLUSTER NUMBER 
PRIB byte uns igned: Pt 3 yy! Y 
APTCNT word unsigned; /*ACTIVE PAGE TABLE COUNT 
TMBU word unsigned; /*TERMINATION MAILBOX UNIT NO. 
GPGCNT word unsigned; /*GLOBAL PAGE COUNT IN WS 
PPGCNT word unsigned; /*PROCESS PAGE COUNT IN WS 
ASTCNT word unsigned; /*AST COUNT REMAINING 
BIOCNT word unsigned; /*BUFFERED 1/0 COUNT REMAINING 
BIOLM word unsigned; /*BUFFERED 1/0 LIMIT 
DIOCNT word uns gned; /*DIRECT 1/0 COUNT 075 aos 
DIOLM word eae /*DIRECT 4¢9 COUNT LIMIT 
PRCCNT word uns /*SUBPROCESS COUNT 
TERMINAL choracter Length 8; /*TERMINAL DEVICE NAME STRING 
/*FOR INTERACTIVE JOBS 
PQB_OVERLAY union fill; 
PQB Longword unsigned; /*POINTER TO PROCESS QUOTA BLOCK 
/*(PROCESS CREATION ONLY) 
EF WM Lenpxere unsigned; /*EVENT FLAG WAIT MASK 
end PQB_OVERLA 
EFCS Longword unsigned: /*LOCAL EVENT FLAG CLUSTER, SYSTEM 
EFCU Longword unsigned; /*LOCAL EVENT FLAG CLUSTER, USER 
CEFC_OVERLAY union fill; 
cere 6 OVERLAY_ " structure fill; /*(USED BY SHELL) 
PGFLCHAR word unsigned; /*PAGE FILE CHARACTERISTICS 
pert meen byte unsigned; /*DESIRED PAGE FILE INDEX 
L_FILL_1 byte fill tag $$; /*SPARE 
SWAPSLIE. ronguerd unsigned; /*INITIAL SWAP BLOCK ALLOCATION 
CEFC_OVERLAY_ catenin fill; 
EFC2P Longword unsigned; /*POINTER TO GLOBAL CLUSTER ! 
EFCSP Fer OVERLAY unsigned; /*POINTER TO GLOBAL CLUSTER ! 
end CEFC Vie; 
end CEFC_OVER 
PID Longword™ unsigned: /*PROCESS ID USED BY EXEC ON LOCAL NODE ONLY 


* 
— WARNING = THE INTERNAL STRUCTURE OF THE EPID IS SUBJECT TO RADICAL CHANGE BETWEEN 
/te VERSIONS OF VMS. NO ASSUMPTIONS SHOULD EVER BE MADE ABOUT ITS FORMAT 


EPID structure jonguere unsi nga /*CLUSTER-WIDE PROCESS ID SEEN BY THE WORLD 
¢ EPID_PROC bitfield lengt /*PROCESS ID FIELD, CAN CONVERT TO PCBSL_PID 
{ currently, the PCBSV_EPID_PROC field can be Cocenpened into the PCBSL_PID by extracting the 
t process index and sequencé number according t 
{ EPID_PROC_PIX bitfield length SCHSGL_PIXWIDTH 
t EPID-PROC-SEQ bitfield Length (PCBS$S_EPID_PRO é - SCHSGL_PIXWIDTH); 
EPID_NODE_IDX bitfield Length /*1DX = INDEX TO TABLE e Bs JOGNT IE DEAT LGNs 
EPID_NODE_SEQ bitfield length /*SEQ = SEQUENCE NUMBER NODE TABLE ENTRY REUSE 
EPID WILD bitfield mask; /*FLAG THAT EPID IS WILDCARD CONTEXT FOR SGETIPI. AND NOT 
A end EPID; /* A VALID EPID 
EOWNER longword unsigned; /*EPID OF PROCESS OWNER 


PHD longword unsigned; /*PROCESS HEADER ADDRESS 


F 
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LNAME character Length 16; /*LOGICAL NAME OF PROCESS 
JIB Longword uns gne : /*ADDRESS OF JOB INFORMATION BLOCK 
PRIV quadword unsigned: /*CURRENT OF acrese MASK 
ARB longword uns gned; /*ADDRESS OF ACCESS RIGHTS BLOCK 
ARB_FILL_1 byte dimension 44 fill tag $$; /*RIGHTS bast DESCRIPTORS, ETC. 
UIC structure longword unsigned; /*LOGON UIC OF PROCESS 

MEM word unsigned; /*MEMBER NUMBER IN UIC 
oa ot word unsigned; /*GROUP NUMBER IN UIC 
© c; 
ARB_FILL_2 byte dimension 60 fill tag $$; /*REMAINDER OF ARB 
ACLFL Longword unsigned; /* ACL queue forward Link 
ACLBL_ longword unsigned; /* ACL queue backward Link 
LOCKQFL longword unsigned; /*LOCK QUEUE FORWARD LINK 
LOCKQBL longword unsigned; /*LOCK QUEUE BACKWARD LINK 
DLCKPRI longword unsigned; /*DEADLOCK RESOLUTION PRIORITY 
IPAST Longword unsigned; /*VECTOR OF MODE BITS FOR IPASTS 
DEFPROT Longword unsigned; /*PROCESS DEFAULT PROTECTION 
WAITIME venawere unsigned; /*ABS TIME OF LAST PROCESS EVENT 
PMB longword unsigned; /*PMB ADDRESS 
constant ‘LENGTH’ equals . prefix PCB$ tag K; /*LENGTH OF PCB 
constant "LENGTH" equals . prefix PCB$ tag C; /*LENGTH OF PCB 


end PCBDEF; 
end_module SPCBDEF; 
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module SPDBDEF ; 
os DEFINE DEVICE PERFORMANCE DATA BLOCK 


DEF etructyre prefix PDBS; 
signed; 


egat = 
FREEFL lLongword un /*FRE ot 4 attih a FORWARD LINK 
4 ee Longword unsigned; yenti BUFFER LISTHEAD BACKLINK 
SIZE word unsigned; /*SIZE OF DATA STRUCTURE 
TYPE byte un toned: /*TYPE OF are STRUCTURE 
OVERRUN byte unsigned; /*OVERRUN INDICATOR 
FILLFL Longword unsigned; /*FILLED pdt LES THEAD FORWARD LINK 
canker longword unsigned; /*FILLED BUFFER LISTHEAD BACKWARD LINK 
Cc longword unsigned; /*ADDRESS OF CURRENT Bur eeR 
NXTBUF Longword unsigned; /*ADDRESS OF NEXT LOCATION IN BUFFER 
ENDBUF Longword unsigned; /*ADDRESS OF END OF BUFFER 
PID | rd uns 3 /*PROCESS ID OF DATA COLLECTION PROCESS 
DEVCLASS byte unsigned; /*DEVICE stags SELECTION 
DEVTYPE byte yne' d; /*DEVICE TYPE SELECTION 
word unsigned; /*STATUS sete tion *AND' MASK 
XORM word unsigned; /*STATUS SELECTION ‘XOR' MASK 
BUFCNT word unsigned; /*COUNT OF FILLED BUFFERS 
FUNC rd unsigned; /*SELECTION FUNCTION MASK 
constant ‘LENGTH’ equals . prefix PDBS tag K; 7*LENGTH OF DATA CONTROL BLOCK 
constant "LENGTH" equals . prefix PDB$ tag C; /*LENGTH OF DATA CONTROL BLOCK 
end PDBDEF ; 


end_module SPDBDEF ; 


H 
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goeute SPDTDEF ; 
i: ” DEF INE PORT-INDEPENDENT OFFSETS IN A PORT DESCRIPTOR TABLE. 
/* THERE IS ONE PDT PER PORT ACCESSED a"ie $C ° preset poet at 44 
/* C1"S AND UDA'S. THE PDT CON “ zee PORT-INDEP ; NDENT PIEC ig NED 
/* HERE) FOLLOWED BY AN A oy Rye Ue CIFIC PIECE DEFINED i¥ H 
/* DRIVER. PDT'S ARE CREATED BY CONTROLLER INIT ROUTINES 
s F THE INDIVIDUAL PORT DRIVERS. 


aggregate f PDTDEF structure prefix PDTS; 
AR BVERLAY un ton 
ee VERLAY unton HULL; 


d; 
structure fill; 
tfield mask; 


end > ; 
end 4g a 
FILL_2 byte Fit UC pref is PDTDEF tag $$; 
PDT_TYPE byt 
constant P. "Seusls " prefix PDT tag $C; 
constant PU equals prefix PDT tag $C; 


constant PE equals prefix PDT tag $C; 
constant PS equals 4 prefix PDT tag $C; 


ACCEPT Longword unsigned; 


DEALRGMSG Longword unsigned; 
eroaect rinse medion 
uns 


rd lpts, 
UNMAP longword unsig gned; 
READCOUNT Longword unsigned; 


/*LINK TO NEXT SCS PDT 
/*Port Characteristics 
/* Port to single host bus 
/* UNUSED BYTE 
/* TYPE OF POT 

CI PORT 
/* UDA PORT 

NI PORT 


hae Bp 
/*STRUCTUR 


men 
Qnnoo4sovd 


RE 
RE 
/*SCS puree 
ve ate pares 


an" —+—— w 
ma VDIrIr ow 
mmmm ww 

o 


~ 

a 

» 

m 

o 

Cc 

m 

mn 3s 
~ 

o 

— 
r 4 


~ 
ca 
4 
m 
> 
=: 
- 
oO 
o 
= 
@arZumm 
aonm Oo 


SAG 
/* SEND Ase WITH BYTE COUNT 
/* UNMAP A 
/* READ COUNTERS (FMT PORT SPECIFIC) 
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} Longword une lgned: 
re une} 4: 
T ore unsi 
TFCN Longword ar lodide 


longword unsigned; 
sfOP. ves 520 were un igned: 


RLSC 
4 $4 
“ st tte 


Preset t SE3END uals . prefix PDTS$ t 
WAITGFL Longword uns 


WAIT ot Longword unsi gnedi 
Z longword un _ : 


yet easks’ 
ENIRLS bi ttieta mask; 


end F a I 
Fits FLAGS-0 VERLAY; 


tongvord uns 
rd uns 


end PDTDEF; 
end_module SPDTDEF; 


ongword 4 1 ntnw fl 10 fill prefi 
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constant § ND equals . prefix PDTS tag K; 


C; 
PHTDEF tag 


on 
nop, Lormverd. vig ged: - prefix PDT$ tag K; 
constant "LENGTH" equals . prefix PDT$ tag C; 


" REGISTER = TS 


OP DGS ON "Wo P 
CS EN S 5 PORT DRIVER 
CS_EN O PORT DRIVER 
R . § 


$ RI 
$ RI 
Vv ECTOR 

F ORK BLOCKS WAITING 
R NONPA 
SAGE _K 
ATAGRAM_H 
/*MAXIMUM TRA 
/*PORT FLAGS 


/* COUNTERS IN USE 
/* RELEASE COUNTERS 


eaenee@Geeananaaeanaen 


~ SS SBN SSS 


Dd 
E T 
T 
DV 
R F 
ED P 
DER 

ADER 
NSFE 


sear WORD 


*NAME OF SYSAP USING COUNTERS 
/*CDRP OF SYSAP READING COUNTERS 
/*# SECONDS T A POLLER SWEEP 
/*ADDR OF UCB. 

/*ADDR OF ADP, 
/*SIZE OF PORT- ME pat Pe piece 


rd | OF PORT-INDEPENDEN 
/* OF PDT 


. 


eS 


SYS! 


22 
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module SPFBDEF; 


{ee 
. PAGE FAULT MONITOR BUFFER 


aggregate PFBDEF gtresture prefix PFBS; 
FLINK gned; 

BLINK longword unsigned; 

FiE8 word unsigned; 


#ptb_ubuff size = 512; 
constant “OSER_BUFFER’' equals . prefix PFBS tag B; 
USER_BUFFER structure; 

epi ubase = .; 

RECCAT Longword unsigned; 

OvERFLOU Longword unsigned; 


° prb_ubase; 
constant BUFFER” equals”. prefix PFBS tag B; 
FILL_1 byte dimension (#pfb_ubuff_size - #pfb_ub 
end USER_BUFFER; 


constant ‘LENGTH’ equals . prefix PFBS tag K; 
constant "LENGTH" equals . prefix PFBS tag C; 
end PFBDEF; 


end_module SPFBDEF ; 
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/*Forward Link 
/*8 


/*Buffer returned to user 


/*Record count 
/*Overflow count 


segegioning of PC/VA poles 
uff_oh) fill prefix PFBDEF tag $$; 


/*tLength of PFB 
/tLength of PFB 
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module SPFLDEF; 


/e+ 
PAGE FILE CONTROL BLOCK 


/* 


onerevete PFLDEF structure prefix PFLS; 
TMAP Longword unsigned; 


STARTBYTE me ped unsigned; 
SIZE word uns 


tart is uns rate 

SIZ lLongwor 0s adi 

FREPAGCNT lenbeord oa appa 
MAXVBN | 


ongword unsigne 
ary! word unsigned; 
LOCSIZ bY te untor iLL: 


FLAGS. +4 ent AY union f 
e unsi 


FLAGS BITS structure fill; 
IRITED bitfield mask; 
AGF IL ield 
ld mask; 


E 
BITMAPLOC™ Longword unsigned; 
end PFLDEF; 
end_module SPFLDEF; 


¥ 
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t 
tek fener 8 equals + prefix PFLS$ tag K; 
constant ‘LENGTH’ equals . prefix PFL$ tag C; 


/* eeeee L_ VB WINDOW, AND B ¢ MUST BE THE SAME OFFSET VALUES AS THE 
ie aeeee EQUIVALERTLY NAMED OFFSET S IN SSECDEF 


et gat ftp 
CHO CNOZOOMNPY oO 


cw MM BDZOAZMMomMnAmMD 


@eeeeneeneenaenaennenne 


POTENTIA 


ab; FOR THIS PAG 
ee ae FILE CONTROL BLOCK 


ase 


aa YT OE BOVwOIcvsIMGMve> 


aed 


m 
> 
a 
—_ 
z 
a 


ST FOR P 
/*REQUEST FOR SWAPP 


SSS STRSTR BST SS SS 


tag 8 
/* ESERVED FOR ALL 


/*BITMAP FOLLOWS PFL HEADER 
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module SPFNDEF; 


{e+ 
s PFN DATA BASE DEFINITIONS 


/* 
J VIELD DEFINITIONS IN PFNSAB_STATE 
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eperepets. PFNDEF union pretiz PFNS; 
BITSO structure fil 
: tot” bitfiela mask Length 3; /*LOCATION OF PAGE 
/* weeee THE FOLLOWING SPARE BIT MUST BE USED FOR EXTENSION OF THE LOC FIELD 
. eeeee OR ALTERNATIVELY THE DELCON BIT MUST BE MOVED ADJACENT TO LOC 
FILL_1 bitfield fill prefix PFNDEF tag $$; /*NOT_IN USE 
DELCON bitfield mak; /*DELETE PFN CONTENTS WHEN REF=0 
FILL_2 bitfield engin 2 fill prefix PFNDEF tag $$;/*NOT IN USE 
MODIFY bitfield mas /*MODIFY BIT 
i end PFNDEF _BITSO; 
. VIELD DEFINITIONS IN PFNSAB_TYPE 
PFNDEF airs: structure fill; 
PAGTYP bitfield mask len ength /sPAGE TYPE 
FILLS 5 bitfield fill prefix Sinoer tag $$; /*NOT IN USE 
COLLISION bitfield mask: /eEMPTY COLLISION QUEUE WHEN PAGE READ COMPLETE 
BADPAG bitfield mask; /*BAD 
RPTEVT bitfield mask; /*REPORT EVENT ON 1/0 COMPLETE 
pe end PFNDEF_BITS1; 
“ VIELD DEFINITIONS IN PFNSAL_BAK 
PFNDEF BITS2 structure fill; 
BAR bitfield mask atenath 23; /*BACKUP ADDRESS 
GBLBAK bitfield m /*GLOBAL BACKING STORE ADDRESS 
PGFLX bittietd mask 5 ae 8; /*PAGE FILE INDEX 
~ end PFNDEF _BITS2; 
. LOCATION VIELD VALUES 
constant FREPAGLST equals 9 prefix PFN tag $C; /*ON FREE PAGE LIST 
constant MFYPAGLST equals prefix PFN tag $C; /*ON MODIFIED PAGE LIST 
constant BADPAGLST equals prefix PFN tag $C; /*ON BAD PAGE LIST 
constant RELPEND equals prefix PFN tag $C; /*RELEASE cae ene 
/*WHEN REFCNT = 0 RELEASE PFN 
constant RDERR equals 4 prefix PFN tag $C; /*READ ERROR WHILE PAGING IN 
constant WRIINPROG equals 5 prefix PFN tag $C; /*WRITE IN PROGRESS (BY MFY PAG WRITER) 
constant Ro jeenos equals § prefix PFN tag $C; /*READ IN PROGRESS (PAGE IN) 
ye constant ACTIVE equals prefix PFN tag $C; /*PAGE IS ACTIVE AND VALID 
a PAGE TYPE VIELD DEFINITIONS 
constant PROCESS equals 0 prefix PFN tag $C; /*PROCESS PAGE 
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constant SYSTEM |, 
constant “GLOBAL 
constant GBLWRT 
constant PPGTBL 
constant GPGTBL 


end PFNDEF; 
end_module SPFNDEF; 


* 
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prefix PFN tag 
prefix PFN tag 
prefix PFN tag 
prefix PFN tag 
prefix PFN tag $C; 


YS ees 


2 2 


N 
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+ Nana SPHDDEF ; 


/* A_ PROCESS HEADER CONTAINS THE SWAPPABLE SCHED Ut ER AND 
/* MEMORY ~_ DATA BASES FOR A PROCESS IN THE 
/* BALANCE SET. 
/t- 
9 BRIVR PHDDEF structure prefix PHDS; 
PRIVMSK quadword unsigned; /*PRIVILEGE MASK 


/s WORKING SET LIST POINTERS = THESE CONTAIN LONG WORD OFFSETS FROM THE 
o BEGINNING OF THE PROCESS HEADER. 


WSLIST word unsigned; /*1ST WORKING SET LIST ENTRY 
WSAUTH word unsigned; /*AUTHORIZED WORKING SET SIZE 
WSLOCK word unsigned: /*1ST LOCKED WORKING SET LIST ENTRY 
WSDYN word unsigned; /*1ST DYNAMIC WORKING SET LIST ENTRY 
WSNEXT word uns gned; /*LAST WSL ENTRY REPLACED 
WSLAST word unsigned; /*LAST WSL_ENTRY IN LIST 
p WSAUTHEXT word unsigned: /*AUTHORIZED WS EXTENT 
® 
/* THE FOLLOWING THREE WORDS SPECIFY THE MAXIMUM AND INITIAL WORKING SET 
/* SIZES FOR THE PROCESS. RATHER THAN CONTAINING THE COUNT OF PAGES 
/* THEY CONTAIN THE LONG WORD INDEX TO WHAT WOULD BE THE LAST WORKING 
a SET LIST ENTRY. 
e 
WSEXTENT word unsigned; /*MAX WORKING SET SIZE AGAINST BORROWING 
WSQUOTA word mn oneal /*QUOTA ON WORKING SET SIZE 
DFWSCNT word unsign /*DEFAULT WORKING SET SIZE 


PAGE IL 2OVERLAY re my HLL: 
word unsigned; 
PAG IL L FiegDs structure fill 
byte dimension 3" fill prefix PHDDEF tag $$; 
itt ae byt e unsigned; /*PAGING FILE INDEX, BYTE REFERENCE 


/* PROCESS SECTION TABLE DATA BASE 

/* PSTBASOFF IS THE BYTE OFFSET (INTEGRAL ! OF PAGES) FROM THE 

/* BEGINNING OF THE PROCESS HEADER TO THE 1ST LONG WORD BEYOND THE 

/* PROCESS SECTION T 

/* THE WORDS, PSTLAST AND PSTFREE ARE SECTION TABLE INDICES WHICH 
/* ARE THE NEGATIVE Lone A es INDEX FROM THE END OF THE SECTION TABLE TO 
/* THE SECTION TABLE ENT 


end PAGFIL FIELDS; 
end PAGFIL_OVERLAY; 


/*PAGING FILE INDEX, LONG WORD REF 


PSTBASOF F N-temmen unsigned; /*BYTE OFFSET TO BASE OF PST 
/*FIRST LONG WORD NOT IN PST 
/*PST GROWS BACKWARDS FROM HERE 

PSTLAST word unsigned; /*END OF PROCESS SECTION TABLE 
/*ADR OF LAST PSTE ALLOCATED 

PSTFREE word unsigned; /*HEAD OF FREE PSTE LIST 


“ CREATE/DELETE PAGE CONTEXT 
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FREPOVA Longword unsigned; 
FREPTECNT Longword sen 


S word anton ed;” 
FLAGS BI Rie 2 ptr ucture fill; 


field mask; 
DALES TX bitfield mask; 
WSPEAKCHK » ld mask; 
NOA b : 
IWSPEAKCK b 


IMGDMP bit 
NO_WS_CHNG 


ve end FLAGS_BITS; 
. QUOTAS AND LIMITS 
& 


end FLAGS_OVERLAY; 
CPUTIM Longword unsigned: 
QUANT word unsigned; 


PRCLM word unsigned; 
ASTLM word unsigned: 


PHVINDEX word unsigned; 
BAK Longword unsigned; 


WSLX_ OVERLAY union fill; 
QSLX Longword unsigned; 


PSTBASMAX jenqueré unsigned; 
end WSLX_OVERL 

PAGEFLTS™ loneeoedl unsigned; 
WSSIZE word unsigned; 

SWAPSIZE word unsigned; 


f 


DIOCNT Longword unsigned; 
BIOCNT Longword unsigned; 


CPULIM Longword ao ra 
CPUMODE byte unsigne 

Aw byte unsigned; 

a FILL_30 word unsigned; 

“ PAGE TABLE STATISTICS 


PTWSLELCK Longword unsigned; 


/t 
. THE NEXT TWO 1/0 COUNTERS MUST BE ADJACENT 
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/*1ST FREE VIRTUAL ADR AT END OF PO SPAC 
/eeeees MUST BE QUAD WORD AWAY FROM FREPIVA 
/*CNT OF FREE PTE’S BETWEEN THE ENDS 

/+*0F a3 i. my 4 PAGE 

/* tel Pe AT ¥ OF P1 SPACE 
PDE F AU PAGE PA LUSTER 


/*PAGE TABLE aes FACTOR 
/*FLAGS WORD 


/*PAGE FAULT MONITORING ENABLED 
/*NEED TO DEALLOCATE SECTION INDICES 
/*CHECK FOR NEW KING SET SIZE (PROC) 
/*SET fh INSWAP OF PROCESS HEADER 
/*CHECK FOR NEW WORKING SET SIZe (IMAGE) 
/*TAKE IMAGE DUMP ON ERROR EXIT 
/*NO CHANGE TO SORKING SET OR SWAPPING 
/* SHORT TERM USE BY MMG CODE ONLY 
/*ACCUMULATED CPU HARGED 

INCE 


/*AST LIMIT 


/*PROCESS HEADER VECTOR INDEX 
/*POINTER TO BACKUP ADDRESS VECTOR FOR 
/*PROCESS HEADER PAGES 


/*POINTER TO WORKING SET LIST INDEX 
/*SAVE AR 
/*LW OFFSET TO TOP PST ADDRESS 


/*COUNT OF PAGE FAULTS 
/*CURRENT ALLOWED WORKING SET SIZE 
/*CURRENT SWAP BLOCK ALLOCATION 


/*DIREC 

/*BUFFERED 1/0 COUNT 

/*LIMIT ON CPU iin FOR PROCESS 
/*ACCESS MODE TO NOTIFY ABOUT CPUTIME 
peephhe’ MODE FLAG FOR AUTO WS AST 


/* BYTE OFFSET TO BYTE ARRAY OF COUNTS 


SS 
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PTWSLEVAL Longword unsigned; 


constant PHDPAGCTX equals 8 prefix PHD tag $C; 


PTCNTLCK word unsigne 
PTCNTVAL word unsigned; 


PTCNTACT word unsigned; 
PTCNTMAX word unsigned; 


WSFLUID word unsigned; 
EXTDYNWS word unsigned; 


/* 
. HARDWARE PCB PORTION OF PROCESS HEADER 


PCB_OVERLAY union fill; 
PCB longword unsigned; 
KSP pongwere unsigned; 

end PCB OVERLAY; 

ESP Longword unsigned; 

SSP Longwerd unsigned; 

USP Longword unsigned; 

RO Longword unsigned; 

R1 longword unsigned; 

R2 longword unsigned; 

RS longword unsigned; 

R4 longword unsigned; 

R5 Longword unsigned; 


Re lLongword 
R7 Longword 
R8 lLongword 


unsigned; 
unsigned; 
unsigned; 


RY Longword unsigned; 
R10 Longword unsigned; 
R11 Longword unsigned; 
R12 longword unsigned; 
R15 longword unsigned; 
PC longword unsigned; 
PSL longword unsigned; 
R longword unsigned; 
POLRASTL_OVERLAY union fill; 
POLRASTL Longword unsigned; 
POLRASTL_BITS structure fill 
LR bitfield length 24; 
A Tey. bitfield Length 8 


end POLRASTL 3 
POLRASTL_FIECDS structure fi 
FILL_29 byte dimension 3 


end 
end POLRASTL_OVERLAY; 
P1BR Longword unsigned; 
PILR longword unsigned; 
EMPTPG word unsigned; 
RESPGCNT word unsigned; 


Ll; 
fill prefix PHDDEF 
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/s OF LOCKED WSLE'S IN THIS PAGE TABLE 
/* BYTE OFFSET TO BYTE ARRAY OF COUNTS 
ys OF VALID WSLE'S IN THIS PAGE TABLE 
/* SIZE OF CONTEXT FOR PHD PAGES 

js COUNT OF PAGE TABLES CONTAINING 

/* 1 OR MORE LOCKED WSLE 

/~ COUNT OF PAGE TABLES CONTAINING 

(y 1 OR MORE VALID WSLE 

/* COUNT OF ACTIVE PAGE TABLES 

/* MAX COUNT OF PAGE TABLES 

/* WHICH HAVE NON-ZERO PTE’S 

/* GUARANTEED NUMBER OF FLUID WS PAGES 
/* EXTRA DYNAMIC WORKING SET LIST ENTRIES 
/* ABOVE REQUIRED WSFLUID MINIMUM 


/*HARDWARE PCB 
/*KERNEL STACK POINTER 


/*EXEC STACK POINTER 


/*SUPERVISOR STACK POINTER 
— STACK POINTER 


/* 
/*PROGRAM STATUS LONGWORD 
/*PO BASE REGISTER 


/*POLR, ASTLVL 


/*PO LENGTH REGISTER 
/* AST LEVEL 


tag $$; 
/*AST LEVEL SUBFIELD 


/*P1 BASE REGISTER 

/*P1 LEMST REGISTER 

/*COUNT OF EMPTY WORKING SET PAGES 
/*RESIDENT PAGE COUNT 
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RESLSTH Longword une qned; 
IMG gned; 


PGFLTIO lLongword unsigned; 
AUTHPRI byte yrs toned: 
FILL_1 byte fill prefix PHDDEF tag $$; 
FILL.2 word fill prefix PHDDEF tag $$; 
EXTRACPU Longword unsigned; 
MIN_CLASS structure; 

Fl — “. igned dimension 20 fill tag $$; 


4 byte unsigned dimension 20 fill tag $$; 
LASS; 


e 

SPARE lLongword unsigned; 

FILL_15 Longword fill prefix PHDDEF tag $$; 
FILL_14 Longword fill prefix PHDDEF tag $$; 
FILL_15 longword fill prefix PHDDEF tag $$; 
FALL Ig Longword fill prefix PHDDEF tag $$; 
FILL_17 longword fill prefix PHDDEF tag $$; 
at Longword fill prefix PHDDEF tag $$; 
FILL_19 Longword fili prefix PHDDEF tag $$; 
FILL_20 Longword fill prefix PHDDEF tag $$; 
FILL_21 longword fill prefix PHDDEF tag $$; 
FILL, § longword fill prefix PHDDEF tag $$; 
FILL_235 longword fill prefix PHDDEF tag $$; 
FILL 24 longword fill prefix PHDDEF tag $$; 
FILL_25 lLongword fill prefix PHDDEF tag $$; 
FILL, § lLongword fill prefix PHDDEF tag $$; 
FILL 27 longword fill prefix PHDDEF tag $$; 


/t 

i END OF FIXED PORTION OF PROCESS HEADER 
constant ‘LENGTH’ equals . prefix PHD$ tag K; 
constant ‘‘LENGTH'’ equals . prefix PHDS tag C; 
WSL longword unsigned; 

end PHDDEF ; 


end_module SPHDDEF ; 
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/*REQUIRED PAGE COUNT 

/*CONTINUATION ea 

pereethe Lee. PRIVILEGES MASK 

yeboiutth D IMAGE PRIVILEGES MASK 

/*POINTER TO RESOURCE LIST 

/*I1MAGE COUNTER BUMPED BY SYSRUNDWN 

/*PAGE FAULT RATE 

/*PAGE FAULTS AT END OF LAST INTERVAL 

/*TIME AT END OF ‘ INTERVAL 

/*COUNT OF REASONS WHY PROCESS 

/* MUST RUN ON PRIMARY IN MP SYSTEM 

/*COUNT OF PAGEFAULT 1/0 

/*INITIAL PROCESS PRIORITY 

/*SPARE 

/*SPARE 

/*ACCUMULATED CPU TIME LIMIT EXTENSION 
/* MINIMUM AUTHORIZED SECURITY CLEARANCE 


/* MAXIMUM AUTHORIZED SECURITY CLEARANCE 


/*SPARE 
/*SPARE 


/*SPARE 


/*LENGTH OF 
/*LENGTH OF 
/*FIRST WORK 


PART OF PROCE 
PART OF PROCE 
T LIST ENTRY 


S HEADER 
s 


S 
SS HEADER 


-—nn 
zZeoe 
Ox 

mm 
“no7o 


gogule SPIBDEF ; 
A PERFORMANCE 1/0 INFORMATION BLOCK 


sggregate PIBDEF union prefix PIBS; 
TYPE byte unsigned; 


end PIBDEF; 


aggregate PIBDEF1 structure prefix PIBS$; 
FILL_5 byte fill prefix PIBDEF tag $s; 


/t 
. START OF I/0 TRANSACTION MESSAGE BLOCK 


end PIBDEF1; 


aggregate PIBDEF2 structure pretis PIBS; 
FILL_6 byte fill prefix PIBDEF tag $$; 
FILL_2 byte fill prefix PIBDEF tag $$; 
FILL_9 word fill prefix PIBDEF tag $$; 
10_TIME quadword unsigned; 
10_SEQN longword unsigned; 
SIO_MEDIA longword unsigned; 
SI0_BCNT Longword unsigned; 
constant SIO_SIZE equals . prefi 
constant SIO_SIZE equals . prefi 


/* 
c END OF 1/0 TRANSACTION MESSAGE BLOCK 
end PIBDEF 2; 


aggregate PIBDEF3 structure pretis PIB$; 
FILL_? byte fill prefix PIBDEF tag $$; 


/* 
. START OF 1/0 REQUEST TRANSACTION MESSAGE BLOCK 


BS tag K; 
BS tag C; 
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/*TYPE OF ENTRY 


/*BASE PRIORITY OF PROCESS 

/tAccess control info from WCB or 0 
/*TIME OF I/0 TRANSACTION 
eeaEeusetan bike OF I/0 TRANSACTION 


/*1/0 PACKET STATUS 

/tAccess control info from WCB or 0 
/*SPARE UNUSED BYTES 

/*LENGTH OF START I/0 MESSAGE 
/*LENGTH OF START 1/0 


/*SPARE UNUSED BYTE 

/*SPARE UNUSED WORD 

/*TIME OF TRANSACTION 

/*SEQUENCE NUMBER OF TRANSACTION 
/*TRANSFER MEDIA ADDRESS 

/* TRANSFER BYTE COUNT 
/*LENGTH OF 1/0 TRANSACTION MESSAGE 
/*LENGTH OF 1/0 TRANSACTION MES 


F 
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FILL_3 byte dimension 3 fill prefix PIBDEF tag $$; /*SPARE UNUSED BYTES 
E1O_TIME quedvor¢ unsigned; /*TIME OF TRANSACTION 
E10_SEQN senquere unsigned: /* SEQUENCE wuneer OF TRANSACTION 
E10_10SB wore unsigned; /*FINAL 1/0 STATUS 
constant EIO_SIZE equals . prefix PIB$ tag kK; vetintte OF END OF I/0 TRANSACTION 
constant EIO-SIZE equals . prefix PIBS tag C; /*LENGTH OF END OF I/0 TRANSACTION 
/* 
. END OF 1/0 REQUEST MESSAGE BLOCK 
end PIBDEFS; 
ad thee i PIBDEF4 peructuce refix hog! 
byte fill prefix {p0er ta ag $ 
FILL~4 byte dimension 8 fill prefix Pisper tag $$; /*SPARE UNUSED BYTES 
ERQ_TIME quadword ontnneds /*TIME OF TRANSACTION 
ERQ-SEQN Longword unsigned; /*SEQUENCE NUMBER OF gers CTION 
conStant ERQ_SIZE equals . prefix PIB$ t tag K /*LENGTH OF END OF I/0 REQUEST TRANSACTION 
constant ERQ_SIZE equals . prefix PIB$ tag C /*LENGTH OF END OF 1/0 REQUEST TRANSACTION 


/* 
oS 1/0 MESSAGE BLOCK ENTRY TYPE CODES 


constant SRQ equals 0 prefix PIB tag SK; /*START OF 1/0 REQUEST 
constant S10 equals 1 prefix PIB tag $k; /*START OF 1/0 TRANSACTION 
constant E10 equals ¢ prefix PIB tag SK; /*END OF 1/0 TRANSACTION 
constant ERQ equals prefix PIB tag SK; /*END OF 1/0 REQUEST 
constant ARQ equals 4 prefix PIB tag $k; /*ABORTED I/0 REQUEST 


end PIBDEF4; 


sda (Kiakt PIBDEFS structure oretts PIBS; 
0 byte fill prefix EiPpe 


FILL-11 byte dimension 3 ft ill cesta? PiBDEF tag $$; /*SPARE UNUSED BYTES 

ARQ_TIME quadword unsigned; /*TIME OF TRANSACTION 

ARQ"SEQN Longword unsigned; /*SEQUENCE NUMBER OF TRANSACTION 
conStant ARQ_SIZE equals . prefix PIB$ tag K Ki /*LENGTH OF ABORTED 1/0 TRANSACTION 
constant ARQ-SIZE equals . prefix PIB$ tag C; /*LENGTH OF ABORTED 1/0 TRANSACTION 


/* 
- ABORTED 1/0 REQUEST MESSAGE BLOCK 


end PIBDEFS; 
end_module $PIBDEF ; 
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goeune SPMBDEF ; 
Ae PAGE FAULT MONITOR CONTROL BLOCK 


aggregate PMBDEF structure prefix PMB$; 
CURBUF Longword unsigned; 
BUFBASE Longword uns gned; 
SIZE word unsigned; 
TYPE byte unsigned; 
FLAGS Rope es ture 8 byte pnerenens 
ield 
constant + SUBPROC™ equals 0; 
onstant ‘IMAGE equals 1; /*Image mode 
ASTIP bitfield mask; 
bitfield mask; 
end 


LASTCPU longword unsigned; 
OVERFLOW longword uns gned; 
HDR quadword unsigned; 
SBPHOR guesuere une} ned; 
ACB ~OvE LAY union fill; 
BLOCK pirestare fill; 
“ASTQFL Longword uns igned: 
ASTQBL longword unsigne 
srane 1b ot e dimension $ fill prefix PMBDEF 
ACMODE e unsigned; 
RMOD byes unsigned; 
PID longword unsigned; 
AST longword unsigned; 
ASTPRM lLongword unsigned; 
KAST Lon word unsigned; 
end AST_BLOCK; 
SUB P BLOCK structure fill; 
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ointer 
ase address 


/*Current buffer 
/*Current buffer 
/*Block size field 
/*Dynamic roe type (PMB) 
/*Processing eee 

/*Mode of operation 


/*Subprocess mode 


/*AST in progress flag 
/*Imbedded ACB is enqueued on the PCB 


/tLast recorded CPU time 

/*Buffer overflow counter (both modes) 
/*Free buffer queue header 

/*Filled buffer queue header 


/*Used as AST hlock in image mode 
/*ACB flink 


/*ACB blink 
bag $$; — 
wner access mode 
/*AST det very mode/flags 
/*PID for AST delivery 
/*AST routine address 
/*AST parameter 
/tAddress of piggyback kernel AST routine 


beh on Ose see tane in subprocess mode 


Lenguer¢ dimension 2 fill prefix ae | tag 


MBXCHR word unsi —, 3 
ees byte uns 
SPARE_5 byte rp a pl 1 fill prefix PMBDEF 
IPID Tongword uns tgned: 
EPID “en word unsign 
SPARE _4 
end SUBP_6L OCK ; 
end ACB OVERCAY 
constant  TENGT equals . prefix PMB$ tag K; 
constant ‘LENGTH’ equals . prefix PMB$ tag C; 
end PMBDEF ; 


end_module SPMBDEF ; 


/*EPID 
onguerd bs a 2 fill prefix PMBDEF tag °Ss; 


*Subprocess aetthen channel 
— yt 14 ia (Synonym for ACMODE) 
PID of subprocess (Synonym for PID) 

of subprocess 


/*0 
ta 
/* 


/tLength of PMB 
/tLength of PMB 
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gogute SPOQBDEF ; 
a PROCESS QUOTA BLOCK DEFINITION 


sggreget? PQBDEF eerencyre prefix PQBSs; 
PRVMSK quadword unsigned; 

SIZE word unsigned; 

TYPE arse unsigned; 

STS byte unsigned; 


Longword unsigned; 
WSDEFAULT Longword uns igned: 
ENQLM longword unsigned; 
WSEXTENT longword unsigned; 
JTQUOTA Longword unsigned; 


FLAGS structure word unsigned; 
MGDMP bitfield mask; 


UAF FLAG Longword unsigned; 
CREPRC_FLAGS longword unsigned; 
MIN_CLASS structure; 
arte uns 
end MIN_CLASS; 
MAX_CLASS structure; 
FILL oree uns 
end MAX_CLASS; 
INPUT_ATT longword unsigned; 
OUTPUT_ATT lokqverd unsigned; 


ROR_ATT Longword unsigned; 
SK_ATT Longword unsigned; 
NAME character Length “tie 


ABLE character Length 
CLI character Length 
TABLE character Length 256; 


NPUT character Length 2 9 
T character length 256; 
character length 256; 


— YNOooO om 


ze 


H 
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me o Rng es + $4 wumouu0 
zoo > we 
Qn ama 
—C KH 
mee 
c2z 
moaao 


NG SET SIZ 

MISC FLAGS 

TAKE IMAGE DUMP ON SERIOUS ERROR 
——— FLAGS 


are 
FLAGS FROM UAF RECORD 
FLAGS FROM SCREPRC ARGUMENT LIST 


/* MINIMUM AUTHORIZED SECURITY CLEARANCE 


ignea dimension 20 fill tag $$ 


/* 
igned dimension 20 fill tag $$ 


MAXIMUM AUTHORIZED SECURITY CLEARANCE 


SYSSINPUT attributes 
SYSSOUTPUT attributes 
SYSSERROR attributes 
SYSSDISK attributes 


CLI name 

CLI table name 

Spawn CLI name 

Spawn CLI table name 


LOGICAL NAME FOR INPUT 
LOGICAL NAME FOR OUTPUT 
LOGICAL NAME FOR ERROR OUTPUT 


| 
IZE 
JOB-WIDE LOGICAL NAME TABLE CREATION QUOTA 


eef 
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DISK character Length 256; /* LOGICAL NAME FOR SYSSDISK 
DDSTRING character length 256; /* DEFAULT DIRECTORY STRING 
IMAGE character Length 256; /* IMAGE NAME FOR NEW PROCESS 
eenevers st ENGTH overs - prefix POBS tag K; /* LENGTH OF PROCESS QUOTA BLOCK 
quals . prefix PQBS tag C; /* LENGTH OF PROCESS QUOTA BLOCK 
end POQBDEF ; 


end_module SPQBDEF ; 


a 
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module SPRBDEF ; 


/e+ 

/* 

/* Protection block definition. The protection bjeck is used to pe ca 
/* protection on obiects internal to the sy stem e.g devices 

/* name tables, etc.) It is used as input to the Ex étubexaceegs. rout ne. 


/* 
/t- 
eggregate PRBDEF structure oret ts PRBS; 
AGS uit tt Ye to word Aes igned; /* Presence wn Ay 
pit eld mask; /* Set for simple ule ag — 
ACL b eld mask; /* Set for eeceee control Sp 
CLASS Tee eld mask; /* Set for securt ty classification 
aa pA + a X bitfield mask; /* Set for security class range 
PROTECT 1ON word unsigned; /* SOGW protection mask 
OWNER Longword unsigned; /* Owner UIC 


/* 

/* The a items in the rotectieg 4 are aperenes and therefore 
/* do not have fixed offsets. The description gtyen elow is for a 

/* hypothetical fully configured protection block. 


/* 

/* ACL quadword; /* ACL Listhead 

/* CLAS structure; /* Classification mask 

as vit 1 sgne dimension 5 fill; 

/* CLASSMAX yet: /* Maximum class mask for range 
/* FILL song. dimension 5 fill; 

/* end ‘efas 

/* 

end PRBDEF ; 


end _module * SPREDEF: 


SYS 


kK 
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segs SPRCPOLDEF ; 
fe PROCESS POLLER MAILBOX MESSAGE DEFINITIONS 


aggregate PRCPOLDEF structure prefix PRCPOLS; 
SYSIDL | 


word unsigned; /*LOW ORDER SYSTEM ID 
SYSIDH word unsigned; /*HIGH ORDER SYSTEM ID 
FILL.1 word unsigned fill; /* (UNUSE 
NODNAM character Length 16; /*SCA NODE NAME (COUNTED ASCII) 
PRCNAM byte unsigned dimension 16; /*PROCESS NAME 
DIRINF byte unsigned dimension 16; /*DIRECTORY INFORMATION 
constant "SIZ" equals . prefix PRCPOLS tag C; /*SIZE OF MESSAGE 


end PRCPOLDEF ; 
end_module SPRCPOLDEF; 
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module SPRIDEF; 
constant TIMER e 
end_module SPRIDEF; 
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/t+ 


constant IOCOM 


constant NULL 
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module SPRMDEF ; 
os DEFINE PARAMETER DESCRIPTOR BLOCK 


eperepate PR PRM_DEF structure prefix PRMS$; 
f ongword unsigned; 

DEFAULT longword unsigned; 

ae as aotieeds 


FLAGS s OVERLAY un tie Fitts 
ongword uns gned: 
FLAGS Bits sere ture fill; 


DYNAMIC bitfield mask; 
Orarie Ce ettietd mask; 
SYSGEN bitfield mask; 
ACP bittield mask; 
JBC bitfield mask; 
RMS bitfield 7 
SYS bitfield mask; 
SPECIAL bittield mask; 
DISPLAY bitfield mask; 
CONTROL bitfield mask; 
MAJOR bitfield mask; 
PQL bitfield mask; 
NEG bitfield mask; 
TTY bitfield mask; 
SCS bitfield mask; 
CLUSTER bitfield mask; 
ASCII bitfield mask; 
LGI bitfield mask; 
end FLAGS BITS; 
end FLAGS OVERLAY; 


: equals 8 prefix PRM tag 
constant ‘WORD’ equals 32 prefix PRM tag 
constant LONG equals ; prefix PRM tag 
constant ‘QUAD equals 64 prefix PRM tag 
constant 6-3 nl equals 38 prefix PRM tag 


constant MAXNAMLEN gels s 15 prefix PRM tag 
UNIT coer aster eee 
constant MAXUNILEN equals 11 prefix PRM tag 
constant ' LENGTH equals . prefix PRM$ tag K; 
constant “‘LENGTH’’ equals . prefix PRM$ tag C: 
end PRM_DEF; 


end_module SPRMDEF ; 


Ll 
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/*ADDRESS OF PARAMETER 
/*DEFAULT VALU 

/*MINIMUM VALUE (+1)=>NONE 
/*MAXIMUM VALUE (=1)=>NONE 


/*TYPE FLAGS 
/* DYNAMIC PARAMETER 


/* STATIC PARAMETER 
/* SYSGEN PARAMETER 
/* ACP CONTROL PARAMETER 
/* JOB CONTROL eye ver 
/* RAS ne Bs ARAMET 
/* GENERAL SYSTEM PARAMETER 
/* SPECIAL PARAMETER 
/* DISPLAY ONLY e CHANGE ) 
/* CONTROL PARAMETER 
/* MAJOR PARAMETER 
/* m4'44 3 be QUOTA LIST 
/* NEGATIVE 
/* TERMINAL CONTROL PARAMETER 
/* SCS CONTROL PARAMET 
/* CLUSTER CONTROL PARAMETERS 
/* ASCII PARAMET 
/* LOGIN PARAMETER 
/eSize CODE FOR DATUM 
® 
/t 
/* 
/t 
/* 
/*BIT POSITION 
/*ASCIC NAME STRING 
/*MAXIMUM LENGTH FOR PARAMETER NAME 
/*ASCIC UNIT STRING 
/*MAXIMUM LENGTH FOR UNIT NAME 
/*SIZE OF DESCRIPTOR BLOCK 
/*SIZE OF DESCRIPTOR BLOCK 


“ 
= 


RRQ OA AOA AAA AAA OA OOOO 
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goeue SPRQDEF ; 
te INTER=PROCESSOR REQUEST BLOCK DEFINITIONS 


/* THIS IS THE BASIC FORMAT FOR AN EXECUTIVE OR DRIVER REQUEST FROM 
. ONE PROCESSOR TO ANOTHER PROCESSOR. 


Longword uns gne : /*FORWARD LINK TO NEXT BLOCK 
BLINK lLongword uns /*BACKWARD LINK TO PREVIOUS BLOC 
FILL_1_ longword inens ion 4 fill prefix PRQDEF tag $$;/* (RESERVED FOR FORK CONTEXT) 
TO_PORT word unsigned; *POR apt +s TO SEND REQUEST TO 
FR-PORT word unsigned; /*PORT NUMBER REQUEST IS FROM 
DISPATCH word uns gned; 7 MESSAGE DISPATCHER ID 
* MESSAGE DISPATCHER ID'S 
constant EXEC equals 0 prefix PRQ tag $C; /* EXECUTIVE REQUEST ID 
constant MAILBOX equals 1 prefix PRQ tag $C: /* MAILBOX REQUEST ID 
constant Recta eaves prefix PRQ tag $C: /* REMOTE DISK REQUEST ID 
constant HSC5 equal prefix PRQ tag $C; /* HSC-50 REQUEST ID 
os FILL_2 word ut prefix PRODEF tag $$; /* (UNUSED) 
REQTYPE word unsigned; /*REQUEST TYPE 
/* MESSAGE DISPATCHER REQUEST SUB-TYPES 
constant SETEF equals 0 prefix PRQ tag $C; /* COPY COMMON EVENT FLAG REQUEST ID 
constant RESAVL equals 1 prefix PRQ tag $C; /* REPORT RESOURCE AVAILABLE 
UNIT word unsigned; /*UNIT a yr yt 
PARAM Longword unsigned; /*FIRST PAR 


AMETER 
constant MINLENGTH equals 64 prefix PRQ tag $C; /*MINIMUM REQUEST BLOCK LENGTH 
end PRQDEF; 
end_module SPRQDEF; 


| 
{ 
| 
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SYSDEFMP.SDL;1 
module SPSMDEF; /* Print symbiont definitions 
Jv 
oe Symbolic definitions for print symbionts. 
/* Public definition of vor tous constants and data ibd aes f 
/* used by the standard VMS print symbiont, and by user modified 
. print symbionts. 
/t- 
/* 
. Service routine function codes 3 
constant ( | 
/* 
/* 10 functions ¢ 
/* : 
CANCEL, /* Cancel pending operations { 
CLOSE /* Release resources { 
FORMAT, /* Format buffer : 
OPEN, oe Obtain resources t 
° ea 
GET_KEY, /* Read record key { 
POSTTION_TO_KEY, /* Read by record context $ 
REWIND, /* Rewind file 
WRITE, /* Write { 
WRITE _NOFORMAT /* Write with driver formatting disabled ¢ 
WRITE~SUPPRESSED, /* Write but suppress output ; 
{ 
/* { 
is Message notification functions 
PAUSE _TASK /* STOP /QUEUE ; 
RESET-STREAM, /* STOP /QUEUE /RESET 
RESUME TASK, /* START /QUEUE (when paused) 
START STREAM, /* START /QUEUE (when stopped) 
START TASK, /* (ofiginated by Age controller) 
STOP_TASK /* STOP /QUEUVE /ABOR? or /REQUEUE 
STOP-STREAM /* STOP /QUEUE /NEXT 
) equals 1 increment 1 prefix PSM$; 
/e 
. Replacement routines 
constant ( 
| 
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SYS 

/* 
/* Task services -- where applicable the oh la of these Literals 
fe determines the sequence of the corresponding service routines. 
/* 
/* Page services 
/2 

PAGE _SETUP /* Page setup = page setup modules 

PAGE HEADER, /* Page separation = page headers 


/* 
an Library module service 


LIBRARY_INPUT, /* Module services 


/t 
/* Filter services 
/* 


INPUT_FILTER, /* Filter service = input 


: 
: 
| 
: 
| 
| 


MAIN FORMAT /* Format service = carriage control 
OUTPOT_FILTER, /* Filter service = output 

/t 

/* Output services 

/t 
OUTPUT, /* Main output routine 

/* 

A General input services 
JOB_SETUP /* Job setup - job reset modules 
FORA SETUP, /* Form setup - form setup modules 
JOB_FLAG /* Job separation - flag page 
JOB~ BURST /* Job separation = burst page 
FILE_SETUP, /* File setup - file setup modules 
FILE_FLAG /* File separation - flag page 
FILE~BURST, /* File separation - burst page 
FILE SETUP_2, /* File setup - top of form 
MAIN_INPU /* File service - main routine 
FILE~ INFORMATION, /* Additional information print 
FILE_ERRORS /* Errors during task processing 
FILE TRAILER, /* File separation - trailer page 
JOB_RESET /* Job reset - job reset modules 
JOB TRAILER /* Job separation -=- trailer page 
JOB" COMPLE TION, /* Job completion - top of form 
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max /* MUST BE LAST 
) equals 1 increment 1 prefix PSM$; 


/* 

. Carriage control types 

constant ( 
INTERNAL, /* = imbedded 
IMPLIED, /* = implied 
FORTRAN, /* = fortran 
PRINT, /t = or int file (PRN) 
MAX /* MUST BE LAST 


) equals 1 increment 1 prefix PSM$ tag K_CC; 
end_module SPSMDEF ; 
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SYS 
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module SPTEDEF; 

jee 

i DEFINE PAGE TABLE ENTRY VIELDS AND VALUES 


/* 
VIELD DEFINITION FOR ‘‘VALID’’ PTE'S 


aggregate PTEDEF union prefix PTES; 
PTEDEF BITSO structure 
PFR Some cies? mask Length 21; 
WINDOW bitfield mask; 
FILL_1 bitfield ite prefix PTEDEF tag $$; 
OWN Bitfield mask Length 
FILL 2 bitfield fit” ‘pret x PTEDEF tag $$; 
MODIFY bitfield m 
Ang | bitfield ma ok Lingth 4; 
ALID erties & mask; 
end PTEDEF BITSO; 


* 
. VIELD DEFINITIONS FOR VARIOUS INVALID FORMS OF PTE 
fringe" BITS! 4 phe pee: fil 


PTEDEF _BITS4 structure fill; 
GPTX bit field mask length 22; 
end PTEDEF "BITS43 


/ee 
ao PROTECTION FIELD DEFINITIONS 


constant NA equals o. er ix PTE tag 5 

constant KR equals prefix bie tag $C; 
constant KW equals 2X1 prefix PTE tag $C: 
constant ER equals &X prefix ore tag $C: 
constant EW equals 2X prefix PTE tag $C; 
constant SR equals %X prefix PTE tag $C: 


KX bitfield Length 16. signed: 
CRF bitfield m 
DZRO bitfield mask; 
WRT bitfield m 
Fits bitfield. Length 3 fill prefix PTEDEF tag 
TYPO bitfield ma 
FILL_4 bitfield Length 2 fill poets PTEDEF tag 
FILL_5 bitfield f prefix PTEDEF tag $$; 
TYP] bitfield mask; 
end PTEDEF iit 
PTEDEF _BITS2 structure fili; 
PGFLVB bitfield ra sek wes 22; 
end PTEDEF Ri tse; 
PTEDEF BITSS structure : 
FICL 6 bitfield le ength i, fill prefix PTEDEF tag, 
CHKPRT bitfield mask; 
end PTEDEF_BITS3; 
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/* PAGE day NUMBER 
/* WINDOW BI 

/* RESERVED 

/* MODE OF THE OWNER 
/* RESERVED 

/* MODIFY BIT 

/* PROTECTION 

/* VALID BIT 


/* SECTION TABLE INDEX 
/* COPY ON REFERENCE 
o DEMAND ZERO 
$5; He ag ts FILE IS ACCESSED FOR WRITING 
* LOW v9 a BIT OF PTE TYPE 
3: /* OWNER FIELD 
RESERVED 
is HIGH ORDER BIT ot PTE TYPE 
/* OVERLAYS MODIFY BIT 


/* PAGE FILE VBN 
$$; /* SPACING 


FORGET THAT THIS PAGE HAS A BACKING STORE 
/* TO BE FORGOTTEN 


/* GLOBAL PAGE TABLE INDEX 


/* NO ACCESS 

/* KERNEL READ ONLY 
/* KERNEL WRITE 

/* EXEC 

/* EXEC WRITE 

/* SUPER READ ONLY 


—_——/ 


“ 
=< 


AAA AQAA AAA AAA AAO AON 
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constant SW equals %Xx tag $C; /* SUPER WRITE 

constant UR equals 2X tag $C; /* USER ew ONLY 

constant UW equals 1X tag $C; /* Ht WRITE 

constant ERKW equals 2X tag $C; /* EXEC READ KERNEL WRITE 
constant SRkw equals 2x tag $C; /* SUPER READ KERNEL WRITE 
constant SREW equals aS tag $C; /* SUPER READ exee WRITE 
constant URKW equals 2X7 tag $C; /* USER READ KERNEL WRITE 
constant UREW equals 2X6 tag $C; /* USER READ EXEC WRITE 
constant URSW equals 2X tag $C; /* USER READ SUPER WRITE 


J+ 
fo OWNER FIELD DEFINITIONS 


constant KOWN equals ° refix PTE og $c /* KERNEL OWNER 
constant EOQWN equals %X00800000 prefix PTE tag $C: /* EXEC OWNER 
constant SOWN equals %Xx01 si prefix PTE tag $C; /* SUPER OWNER 
constant UOWN equals 2x01 00 prefix PTE tag $C; /* USER OWNER 


end PTEDEF; 
end_module SPTEDEF; 
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module SPTRDEF; 


aggregate, PTRDEF structure prefix PTRS$; 
.! quadword fill prefix PTRDEF tag $$; 

SIZE word unsigned; 
TYPE pxte unsigned; 
PTRTYPE byte unsigned; 
PTRCNT Longword unsigned; 
constant ‘LENGTH’ equals . prefix PTR$ tag K; 
constant “‘LENGTH’’ equals . prefix PTR$ tag C; 
PTRO Longword unsigned; 


end PTRDEF; 
end_module SPTRDEF; 


/* POINTER CONTROL BLOCK 

THIS IS A STRUCTURE OF POINTERS TO OTH 
/* OF LIKE KIND. TYPICALLY THE STRUCTURE 
/* BY THEIR LONG WORD IND X INTO THE TABL 
/* THESE, IT 1S CONVENTIONAL TO KEEP A PO 
/* STRUCTURE POINTERS RATHER THAN (OR IN 
/* TO THE FRONT OF THE POINTER CONTROL BL 
~ IN THE ARRAY PRECEEDS THE FIRST POINTE 
te 
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DY 
/*TYPE OF DYNAMIC CONTROL BLOCK 
/*TYPE OF conte BLOCK POINTED TO 
/*COUNT OF ENTRIES 
/*LENGTH OF FIXED PORTION 
/*LENGTH OF FIXED PORTION 
/*PTR NUMBER 
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